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PREFACE 



This document is a source reference manual. It is intended for those 
interested in applying the DIBOL language in a COS-300/310 system 
environment. Because of the COS - 300 and 310 systems family 
resemblance, most of the information contained herein applies to both 
systems. Therefore, unless stated otherwise within this document, all 
statements made in the COS-300/310 SYSTEM REFERENCE MANUAL apply to 
both the COS-300 system and the COS-310 system. Specific reference is 
made to the particular system under discussion, whenever a difference 
occurs . 

The manual is constructed as follows: 

DIBOL language program preparation is discussed in Chapter 1. 
Chapters 2, through 5 cover the main systems material: loading and 
editing programs; software system configuration and logical unit 
assignment, and movement of files and programs between devices. 
Utility programs used for building, sorting and maintaining data 
files, are found in Chapters 6 through 8, while Chapters 9 through 16 
describe non-related utility programs. 

The manual provides additional reference material and summaries in 
Appendices A through M and the glossary at the end of this book 
contains a list of all possibly unfamiliar terms. Readers of this 
manual are assumed to possess a basic knowledge of DIBOL. Additional 
background may be obtained however, by consulting COS— 300 
SELF-TEACHING MANUAL (DEC-0 8-OCSTA-A-D) . 
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INTRODUCTION 



THE LANGUAGE 

DIBOL (Digital Equipment Corporation Business Oriented Language) is a 
COBOL-like language used to write business application programs. The 
DIBOL language consists of data definition and procedures specified in 
easy to learn statements. Figures INTRO-1 and INTRO-2 illustrate a 
possible application work flow using DIBOL and system programs. 



THE COS SYSTEM 

The COS-300 and COS-310 systems are of the same family and are 
similar. The newer sophisticated COS-310 system however, is initially 
designed for the small system user. Notwithstanding this, the COS-310 
has expansion flexibility built into the system to accommodate the 
degree of complexity normally associated with the COS-300 system. 

The COS-310 system is streamlined for efficiency within its intended 
environment. Among other things, this means that some of the 
peripherals have been removed. Paper tape and card readers for 
example, are not available on the 310. But, new devices have been 
introduced to the system. In particular, the new flexible RX8E 
Diskette comes with the 310, as does the VT50H terminal. 

Both systems are discussed in detail throughout this manual. The 
minimum COS system hardware requirements are shown below: 

COS-300 SYSTEM 

PDP-8/E Computer 
Mass storage device 
With 16KB of core 
User terminal 
Line printer 

COS-310 SYSTEM 

PDP-8/A 

16KB of core 

2 RX8E Dual Diskettes 

User terminal 

Line printer 



INTRO-1 



For a detailed description of the basic hardware and 
supported equipment, refer to Appendix F of this manual. 



additional 



Also provided as part of COS are the following system programs: 



MONITOR/EDITOR 



SYSGEN 



COMP 



PIP 



controls the calling and executing of all 
other programs in the COS system; provides 
the I/O control for the peripheral devices 
and an editing capability for correcting user 
programs. This program is referred to 
throughout the manual as Monitor. 

specifies the system configuration and 
assigns logical device numbers for system 
startup. 

translates DIBOL language source statements 
into a binary object program which can be run 
on the COS 300 computer . 



transfers data, source or 
between two devices. 



binary files 



BUILD 



SORT 



creates data files based on the 
data fields typed by the user. 



contents of 



sequences records according to key characters 
or fields specified by the user. Records may 
be sorted into ascending (0-9 or A-Z) or 
descending (Z-A or 9-0) sequence. 

UPDATE performs maintenance on data files. UPDATE 

makes the specified changes, creates a new 
file and prints a report showing all changes, 
deletions and insertions. 

Figure INTRO-3 suggests possible usage of these system programs in 
DIBOL program development. 

COS FILE STRUCTURE 

There are four types of files used in the COS system: source, data, 
compiler binary, and system program. 

Data files are completely devoted to the storage of data to be 
processed by DIBOL or system programs. 

Source files contain control programs (for BUILD, SORT, etc.) or user 
DIBOL programs. 

Binary files are the output of the compiler and contain user DIBOL 
programs translated into a code which can be executed by COS. 

System program files include those programs (MONITOR, SYSGEN, PIP, 
BUILD, COMP, SORT and UPDATE) supplied as part of the COS package. 

DIBOL source programs, control programs and compiled binary programs 
can also be saved on system devices. (Data files cannot be saved as 
system files.) 



INTRO-2 



SOURCE 
DOCUMENT 



EDIT 




MERGE .UPDATE 
OR DIBOL 
PROGRAM 




INVOICE 
MAILING 
LIST 

BUILD 

UPDATE,OIBOL 

PROGRAM 




(OPTIONAL) 



MASTER! 
FILES 




DIBOL PROGRAM 



SORT 



This figure illustrates 
the possible flow of 
work from a source 
document (such as an 
invoice or mailing 
list) through the 
creation of a data file 
to the eventual output 
of a report or listing. 



Figure INTRO-1 
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(TRANSACTION J 
ENTERED VIA J 




PROCESS 
/DIRECTLY AGAINST i 
MASTER FILE(S) ' 
Va UPDATE FILE. 



DIBOL 



PROCESS MASTER 

FILE TO PRODUCE 

REPORTS 






REPORT 



DIBOL 



This figure illustrates 
the input of data 

(transaction file) from 
terminal, card reader 
of DECtape; the 
processing against the 
master file by a user 
created DIBOL program 
and the output 

(depending on the DIBOL 
program being run) of 
reports and files. 



Figure INTRO-2 
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DIBOL 



program /^ X 

^f,™°;_^f^!° (Editor y 



SYSGEN tables 
and control 
programs) and 
editing 




Configures system, 
assigns logical 
units for system 
use. 



Compiles 
source 
programs 
into object 
(binary) program 



Cross 
reference 
of DIBOL 
program 



This figure illustrates the COS 
system programs of particular 
interest to the programmer. 



Figure INTRO-3 
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MANUAL AND SYSTEM CONVENTIONS 

The symbols and terms used throughout 

SYMBOLS USED EXAMPLE 



Lower-case 
characters 



Upper-case 
characters 



PROC n 



NO TRACE 



...(Ellipsis) RU prog ( , . . . ,progn) 



Underscored 
characters 




[ ] 



^(carriage 
return key) 



COS MONITOR 2.1108 



RUc-jPIP 




START 



.R COMP, PROG^ 



this manual are described below. 
EXPLANATION 



Represent information that must 
be supplied by the user, such as 
values, names and other 
parameters . 



Words or characters that must be 
used exactly as shown. 

Indicates optional continuation 
of arguments. 



Indicates output from the 
system. 

Indicates a space or blank. 



Braces indicate a choice of one 
of the items enclosed. 



Brackets indicate an optional 
feature . 



Line and command terminator. 



TERMS 

Expressions 

Are variables, constants or arithmetic expressions (made up 
of variables, constants and the operators #,+,-,*,/). 

Filnam,pronam , label and keyword 

Are used to identify names assigned to files, programs 
statements, and input lines, these names may be of any 
length but only the first 6 characters are recognized. 

Pronam can contain any characters except space, slash, 
comma, plus, period and minus. 
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PART I 



DIBOL LANGUAGE 



CHAPTER 1 
DIBOL LANGUAGE 



This chapter provides a reference source on the DIBOL language. If 
more basic information is desired, refer to the COS 300 Self-Teaching 
Manual (DEC-08-OCSTA-A-D) . 

A DIBOL program consists of a series of statements arranged in two 
sections. Data and PROCedure. 

The Data section contains the RECORD statements which specify the type 
and size of the information to be used in the program and where it is 
to be stored. 

The PROCedure section consists of: 

ACCEPT 

CALL 

CHAIN 

DISPLAY 

END 

FINI 

FORMS 

GO TO 

IF 

INCR 

INIT 

ON ERROR 

PROC 

READ 

RETURN 

STOP 

TRACE/NO TRACE 

TRAP 

WRITE 

XMIT 

and data manipulation statements. These statements are arranged in a 
logical order for program execution. Refer to the sample program 
shown in Figure 1-1. Use the editing commands (refer to Chapter 2) to 
enter newly created DIBOL programs into the COS system. Spaces and 
tabs may be inserted in the program for clarity and are ignored by the 
Compiler except when enclosed in single quotation marks (')• 

Statement length is limited to 120 characters and spaces. When the 
121st character is typed, an error message LINE TOO LONG is displayed 
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and that line is lost. CTRL/U deletes the entire line. If the 

terminal line is filled before the 120 characters are entered, the 

Editor executes a carriage return/line feed to the terminal and the 
line can be continued. 
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START 






RECORD 


INBUF 






STOCKN, 


D4 




DESC, 


A25 




UCOST, 


D5 




QORDER, 


D4 




/ 


D9 


RECORD 


OUTBUF,X 






/ 


D4 




f 


A25 




/ 


D5 




t 


D4 




ECOST, 


D9 


RECORD 


LABEL, 


A6,P 


PROC 2 







LOOP, 



EOF, 



END 



INIT(1, IN, LABEL) 

INIT(2,0UT, 'OUTPUT') 

XMIT(1, INBUF, EOF) 

IF(STOCKN.LT.1000)GO TO LOOP 

ECOST=UCOST*QORDER 

XMIT(2,0UTBUF) 

GO TO LOOP 

FINI(2) 

FINI (1) 

STOP 



Figure 1-1 
Sample Program 



1.1 STATEMENT NUMBERS 

Statement numbers are assigned manually by the user when typing in the 
program or automatically by the Monitor when the program is entered 
for editing (Refer to Chapter 2) . These numbers control the order of 
the statements in the file. The DIBOL language makes no use of these 
numbers, but error messages and the DIBOL debugging refer to them. 



1.2 STATEMENT LABELS 

Labels are the symbolic names assigned to identify the location of a 
statement in the procedure section of a program. 



TEST, A=B 
t 



(^labelj 
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Labels consist of a sequence of letters or digits the first of which 
must be a letter and only the first six characters are significant. 
Labels are separated from the statement by a comma. Statements with 
labels are the transfer point for other statements such as GO TO, IF 
and CALL. 

Examples : 



GO TO BEGIN 



: C 



label 



BEGIN, A=B+4 



r label ^ 



( labels ^ 
y^~f—i 



7 V 

GO TO (PRT,SEC,TO) ,K 



c 



label 



(labelV' 



^PPT, XMIT(15,RPT,E0F) 

y 

SEC, READ(10,CUST,88) 



(labelV' 



TOT, SUB=COST+TAX 



1 . 3 COMMENTS 

Comments and notes to explain the source program may be added 
following a semicolon (;) on any statement line. A program line that 
begins with a semicolon contains only comments. 

Examples : 

RECORD CUST ; THIS IS THE CUSTOMER RECORD 
; THIS PROGRAM PRINTS THE ACCOUNTS 
;PAST DUE REPORT 

Table 1-1 summarizes DIBOL source program limitations. 
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Table 1-1 
Source Program Limitations 



Maximum characters 


about 8,000 per 


file 


maximum number of 






source files per 






program 


7 




Maximum number of 






symbols in 8K 






systems 


365 




in 12K and 






larger : 


511 




Line numbers 






available 


0-4095 




Maximum characters 






per line 


120 





1 . 4 STATEMENTS 

There are six types of statements in DIBOL: 

1. Compiler statements (START, END and PROC) which label the 
beginning, end and procedure section of the program. These 
statements are non-executable and START and END are optional. 

2. Data specification statements (RECORD) which describe the type and 
size of data to be stored and the location in which it is to be 
stored . 

3. Data manipulation statements and INCR, which control the movement 
of data within memory. 

4. Control statements, (GO TO, IF, CALL, ON ERROR, RETURN, TRAP, 
CHAIN, STOP) which govern the sequence of execution of statements 
within a program. Without these statements, the program would be 
executed in the order written. 

5. Input/Output statements (ACCEPT, DISPLAY, INIT, XMIT, READ, WRITE 
and FINI) which control data movement within memory or between 
memory and peripheral devices, and to open and close the files 
used by the program. Line spacing to the line printer is 
controlled by the FORMS statement. 

6. Debugging statements, (TRACE, NO TRACE) which permit tracing of 
program execution. 
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ACCEPT 



1.4.1 ACCEPT 

The ACCEPT statement takes input from the keyboard, stores it in the 
specified alphanumeric field and causes the decimal equivalent of the 
last key typed to be stored in the specified decimal field. ACCEPT is 
primarily used with the DISPLAY statement (section 1.4.5) and has the 
form: 



ACCEPT (dfield, afield) 



where 



dfield 



is a decimal variable where the decimal 
equivalent of the last key typed is to be 
stored . 



afield 



is an alpha variable indicating where the 
keyboard input is to be stored. 



The code stored in the decimal field depends on the last key typed 
(special terminator character) . The keys and equivalent codes for the 
allowable terminator characters are shown in Table 1-2. For example, 
when all characters are entered, filling up afield, the code 00 is 
stored in the specified decimal field, which should be defined as two 
or more characters. 

This code can be tested later in the DIBOL program. 

When an ACCEPT statement is encountered during program execution, the 
system waits for keyboard input. Execution continues when the 
characters typed fill the afield or when a special character such as 
carriage return, line feed, altmode, rubout, CTRL/U, etc. is typed. 
Any non-cos character terminates the ACCEPT and sets dfield to the 
decimal equivalent of the last character typed. When the ACCEPT is 
terminated before afield is full, the remaining character positions in 
the afield are unchanged. 

Examples : 



Legal 

ACCEPT (A, B) 
ACCEPT(A(3) ,B(4,5) ) 

See Appendix L for more examples. 



Illegal 

ACCEPT (5, CHAR) 
ACCEPT (TCHAR,CHAR+3) 
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Table 1-2 
Terminator Codes 



Decimal 






VT05 




VT50 Code Character 


Character 












00 






Null or end of 


field 


Null or end of field 


01 






CTRL/A 




CTRL/A 


02 






CTRL/B 




CTRL/B 


04 






CTRL/D 




CTRL/D 


05 






CTRL/E 




CTRL/E 


06 






CTRL/F 




CTRL/F 


07 






CTRL/G 




CTRL/G 


08 






-f-OR CTRL/H 




BACKSPACE or CTRL/H 


09 






TAB 




TAB 


10 






LINE FEED or LF 




LINE FEED 


11 






i or CTRL/K 




CTRL/K 


12 






CTRL/L 




CTRL/L 


13 






RETURN or CR 




RETURN or ENTER 


14 






* 




CTRL/N-(COS-310 only) 


16 






CTRL/P 




CTRL/P 


17 






CTRL/Q-(COS-300 


only) 


* 


18 






CTRL/R 




CTRL/R 


19 






CTRL/S-(COS-300 


only) 


* 


20 






CTRL/T 




CTRL/T 


21 






CTRL/U 




CTRL/U 


22 






CTRL/V 




CTRL/V 


23 






CTRL/W 




CTRL/W 


24 






->► or CTRL/X 




CTRL/X 


25 






CTRL/Y 




CTRL/T 


26 






'^ or CTRL/Z 




CTRL/Z 


27 






ALT 




ESC 


29 






HOME 




not used 


30 






EOL 




not used 


32 






RUB OUT 




DELETE 


63 












*Certain cod 


es 


shou 


Id not be used b 


ecause 


they conflict with other 


software fu 


notions 


These are 


either 


omitted from the table, or 


marked with 


an 


aster isk . 







A command protocol is built around the Escape code (033) (27 decimal) 
to implement those commands needed by the VT50 but not found in 7-bit 
ASCII. Upon receiving the Escape code 033, the terminal is set to 
Escape mode and treats the next character received as a command. 
Commands created in this manner are called Escape Sequences. 
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CALL 



1.4.2 CALL 

The CALL statement causes control to branch to a subroutine and has 
the form: 

CALL label 

where label is the label of the first statement of a subroutine in the 
PROCedure section of the program. 

The CALL statement saves the return location in a (pushdown) list. 
Additional subroutine CALL and RETURN statements may be nested within 
a subroutine to a depth of 50. 

Examples : 

Legal Illegal 

CALL SET CALL 

CALL(SUBR+3) 

SET, PROFIT=PRICE-COST 



RETURN 
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CHAIN 



1.4.3 CHAIN 

The CHAIN statement allows a DIBOL program which will not fit in 
available memory to be split up into two or more programs. 

The form of the CHAIN statement is: 

CHAIN decimal expression 

where decimal expression refers to the position of the CHAIN program 
in the Monitor RUN command and is in the range 0-7. 

When the CHAIN statement is encountered in a DIBOL program, execution 
of the current program is halted and the CHAIN program referred to by 
the decimal expression in the CHAIN statement is loaded. Execution of 
the CHAINed program begins with the statement immediately following 
the PROC statement. All CHAIN programs must be properly declared in a 
.RUN command. The program initially run is chain 0, the next program 
chain 1, etc. For example, a CHAIN 2 statement refers to program TRY2 
in the .RUN command. 

.RUN START+HELPH-TRY2+STOP3 

Refer to section 2.2.6 for a description of the RUN command, section 
1.4.16 for the RECORD ,C statement and to Appendix L for more 
information about the CHAIN statement. 
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DATA MANIPULATION STATEMENTS 



1.4.4 Data Manipulation Statements 

Data manipulation statements clear data fields, move data between 

fields, calculate decimal expressions, convert data from decimal to 

alphanumeric and vice versa and format data. The form of this 
statement is 

destination field = source field 



where source field is a field name, 
and destination field is the fie 
The contents of the source field are 
The destination field must have b 
section as either an alphanumeri 
destination or source field is decim 
is right-justified; if both fields 
The source data is always conve 
destination field. Record names can 
statements. 



variable, cons 
Id where the d 

moved to the 
een defined in 
c or decimal 
al , the data f 
are alphanumer 
rted to the 
be used in 



tant or 

ata is 

destin 

the da 

field 

rom the 

ic , le 

type de 

data 



express 

to be sto 

ation fi 

ta defini 

If 

source f 

f t- justif 

fined for 

manipula 



ion , 
red . 
eld. 
tion 

the 
ield 
ied . 

the 
tion 



Arithmetic Expressions: 

Arithmetic expressions are allowed on the right side of the equals 
sign. The expression can contain decimal elements, subscripted data 
elements, constants, variables and arithmetic operators. There are 
five binary arithmetic operators: 



# (rounding) 
/ (division) 

* (multiplication) 
+ (addition) 

- (subtraction) 



Order of priority: 

1. rounding 

2. multiplication and division 

3. addition and subtraction 



These operators require decimal operands. 

Operators with the same priority are executed left to right. 

The result of a division operation is truncated toward zero 
example, 5/3 is 1 and -14/5 is -2. 



For 



An error occurs when a divide by zero is attempted or when the result 
of an addition, subtraction or multiplication is too large or too 
small . 

There are three unary operators (-,+,#). The (+) has no effect; the 
unary - negates the decimal value to which it is specified. More than 
one unary minus can be specified for a number, e.g., A= - -3 is 
equivalent to A = +3 and A = — +-4 is equivalent to A = -(-(+(-4))) or 
A = -4. 

The number sign (#) operator is also used to convert an alphanumeric 
character to its equivalent internal code and make that decimal number 
(0-63) available to the program. 

The # operator takes that value from the alphanumeric or decimal field 
on the right side of the expression, checks the first character 
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(left-most) , determines the equivalent internal code and returns the 
code as a decimal number. The result is a decimal value. In this 
application, the number sign (#) appears before the character. 



Examples 



A = #B 



A is a decimal field and B is an 
alphanumeric field. If B contains the 
characters XYZ , X is converted to its 
internal code, 71, and the decimal 
equivalent, 57, is stored in A. 



A = 3 + #B 



is 



decimal field and B is 



an 



alphanumeric field. After conversion, 
the decimal equivalent of the first 
character of B, 57, is added to 3 and 
stored in A. 

A = 10 

Fl = 100*A/2+3-l 

The order of priority can be altered by the use of parentheses, since 
expressions in parentheses are executed first. The above expression 
equals 502. 

Fl=100* (A/2+3-1) 

The result of this example is 700. 

Illegal 

A+(B*C 

C*3)-F 

INTRST* ( ( 4 *AMT+2 ) -PAYMNT/2 

LENGTH+WIDTH+ 

6/3- 

0054- 

34+'ABCDE' 

Rounding : 

Variables may be truncated and rounded. The resulting variable is 
rounded upward if the digit which followed the remaining variable 
before truncation is 5 or more. The variable is rounded in terms of 
magnitude; sign is unchanged. 

The format for rounding is: 

A#B 

where A is truncated by B places and rounded in magnitude. B cannot 
be greater than 7 and should be a positive integer. If B is negative, 
it is treated as positive. When used for rounding, the number sign 
(#) appears after a character. For example: 
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MONEY, D6 

TEMP=M0NEY#2 
If MONEY equals 123456, TEMP equals 1235. 
If MONEY equals 123446, TEMP equals 1234. 
If MONEY equals -1473, TEMP equals -15. 

Typically, this feature would be used for rounding to the dollar. 
Variables: 
Variables may take on one of the following three formats: 

a. name 

b. name (subscript) 

c. name (position 1, position 2) 

a. name - consists of a sequence of letters and digits beginning with 
a letter, only the first 6 characters are significant. Used in 
record name, field name, etc. 

b. name (subscript) - name should be a subscripted array and the value 
of the subscript must be between 1 and the dimension specified in 
the array. The subscript must be decimal and can be an 
expression. If either name is not an array or the value of the 
subscript exceeds the dimension other locations in core outside 
the limits of name are referenced. No error message is generated 
unless the user tries to reference data so far away from his data 
area that he is referencing his program or the system. 

c. name (positionl, position2) -positionl must be less than or equal 
to position2; Position2 should be less than or equal to the 
maximum size of the array associated with name. Positions 1 and 2 
must be both positive and decimal. This form of subscripting 
references those characters from positionl to position2 inclusive. 
If the variable name is subscripted, you may consider the 
successive array elements strung out left to right. For example, 
in referencing A(3,9) in the array A declared as 4D4, the 7 digits 
are referenced as follows: the last 2 digits of A(l), the entire 
A(2) , and the first digit of A(3) . 

Decimal Literals: 

These consist of a sequence of from 1 to 15 decimal digits. 

Alpha literals: 

These consist of a sequence of any legal COS characters (except single 
quotes) enclosed in single quotes. 
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Example: 

'ABCD' 

RECORD Literals: 

A RECORD literal is a constant that can be used anywhere in the 
PROCedure section of a DIBOL program where a record is required. It 
is similar to an alpha literal except it begins with a double quote 
(") and ends with a single quote ('). For example: 



REC="THERE' 
INIT (8,TTY) 
XMIT (8, "HELLO') 
XMIT (8,REC) 



1.4.4.1 Clearing Fields 

Data manipulation statements clear fields when used in the form: 

field name = 

The destination can be a single field or an array. If alphanumeric, 
it is cleared to all spaces; if decimal to all zeros. Fields, parts 
of fields or fields in an array, can also be cleared by the use of 
subscripts (expressions in parentheses). Any part of an array can be 
accessed in a program statement by listing the position of the field 
of character (s) in parentheses. Specifying an array name without any 
subscripts, clears the first array element only. 

Examples: 

Field Name Meaning 

Fl(5,7) = clears character positions 5, 6, and 7 in 
field Fl 

Fl(5) = clears the fifth element in an array 

Fl (A) = clears the Ath element in array Fl 

Fl(l,l) = clears the first character. 

To clear a RECORD area to all spaces use the form: 

RECNAM= 

Record names can be subscripted to allow reference to RECORD areas as 
though they were in an array. All records to be so referenced must 
follow one another and be of the same length. For example: 
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RECORD Z 

,A3 
RECORD Z2 

,A3 



Z(2) = 



Clears the next record defined after record Z in the data section of 
the program. 



1.4.4.2 Moving Alphanumeric Data 

To move the contents of one alphanumeric field to another alphanumeric 
field, use the following form: 

Alpha destination = Alpha source 

If the source is shorter than the destination, the data is 
left- justified with the right-most characters of the destination field 
undisturbed. If the source is longer than the destination, the 
right-most characters of the source field are not moved into the 
destination field. The source field retains the original data. 

For example: 

RECORD 

A,A5, 'ABODE' 
B,A3,'FGH' 
PROC 

A=B 

A now contains FGHDE 

RECORD A 

NAME,A4, 'FRED' 

NAME1,A7, 'JOHNSON' 
PROC 

NAME=NAME1 

The name in RECORD A is now JOHN JOHNSON. 



1.4.4.3 Moving Decimal Data 

Use a statement of the following form to move the contents of one 
decimal field to another decimal field. 

decimal destination = decimal source 

If the value in the source field is shorter than the length of the 
destination field, zeros are inserted on the left. If longer, the 
most significant digits are not moved. 
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1.4.4.4 Moving Records 

An assignment statement may be of the form 

REC1=REC2 

where RECl and REC2 are record names or subscripted record names or 
REC2 may be a record literal. Its effect is to move the contents of 
REC2 into the space reserved by RECl. If REC2 is smaller than RECl, 
the right-most characters of RECl are undisturbed. If REC2 is larger, 
the right-most characters of REC2 are not moved. Extreme caution must 
be used if the destination record is subscripted. 



1.4.4.5 Converting and Formatting Data 

Decimal values can be converted to alphanumeric and vice versa for the 
purposes of I/O and calculations. Any data field may be reformatted 
to contain spaces and punctuation marks which are not stored with the 
records on DECtape or disk and cannot be present during calculations. 

Alphanumeric to Decimal Conversion - The form used for this conversion 
is: 

Decimal variable = Alpha expression 

Alphanumeric values to be converted to decimal must be 16 or less 

characters in length. The source is an alphanumeric expression which 

contains an optionally signed representation of a number. The 
destination is a simple or subscripted decimal variable. 

Example: 

DEC=ALPHA 

The numeric alphanumeric field (ALPHA) is converted to decimal and 
stored in the decimal field (DEC). If the decimal field is larger, 
the data is r ight- justified and zero-filled. If the decimal field is 
smaller, the excess characters to the left are not moved. If the 
alpha field contains characters other than digits, spaces and signs (+ 
or-), the message BAD DIGIT results at run time. The statement should 
be preceded by an ON ERROR statement if the contents of ALPHA may 
contain BAD DIGIT'S (refer to the ON ERROR statement for more 
information) . Spaces and signs are not counted as characters that are 
moved. Spaces in the alpha field are ignored. Signs may be imbedded 
anywhere in the alpha field. Two minus signs are equivalent to a 
plus; three minus signs are equivalent to a minus; etc. 

Decimal to Alphanumeric Conversion - The form of this conversion is 

Alpha variable = decimal expression 

The source is a decimal expression and the destination is a simple 
alphanumeric variable. Example: 

ALPHA = DEC 
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The contents of the decimal field (DEC) are placed in an alphanumeric 
field (ALPHA). If the alphanumeric field is larger, the data is 
r ight- justified and space-filled on the left. If the alphanumeric 
field is smaller, the excess characters on the left are not moved. 
Leading zeroes in the decimal field are converted to spaces. However, 
if the decimal field equals zero, the alpha field is set to spaces 
except for the right-most character, which is a zero. 

Data Formatting - Decimal fields can be reformatted and stored in 
alphanumeric fields using the form: 

Alpha variable = decimal expression, format 

The source is a decimal expression and the destination a simple 
alphanumeric variable. Format specifies special characters to be 
inserted with numbers. 

Example: 

A = D, '-XXX,XXX.ZZ ' 

The eight-digit decimal number at D is converted to alphanumeric code, 
reformatted with specified punctuation and stored in alphanumeric 
field A. The format string must be an alpha expression. 

The formatted value is placed in the destination field, 
right- justified and padded with spaces if necessary. If the formatted 
value is larger than the destination field, the left-most characters 
are not moved . 

Most printing characters on the line printer or terminal can be used 
in a format string but the following characters must be used with 
care: X,Z, *,-,.,', and comma. Table 1-3 shows the special characters 
to be used in format strings. 

Examples : 

TOTL=TEMP , ' XXX , XXX . XX- ' 

If TEMP contains 12345678, TOTL will contain 123,456.78 

AMT=PAY , • *XXX , XXX . XX ' 
CDATE=DATE , ' XX/XX/XX ' 
GT0T=T0T1+T0T2, '-XXX,XXX.ZZ ' 
WAGES=RATE*HOURS, 'XXXX.XX' 
RATIO=(TOTl/TOT2)#2, 'XXX. XX' 

TOTl is divided by T0T2; the result is rounded two places; that 
result is formatted and stored in RATIO. 

A1=NUM, 'XXXO' 

If NUM contains 987, Al will contain 9870. 

A2=DATE , ' . XX/XX/XX ' 
A=Q, 'Q=XX' 
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Also : 



TOTFMT, All, '-XXX,XXX.ZZ ' 
GT0T=T0T1+T0T2, TOTFMT 



TOTFMT is specified in data section and is used to specify 
the PROC section. 



format in 



When using a comma, period, slash, minus sign or any other notation, 
each must be counted as a character position. In the first example 
above, for instance, TOTL must be defined in a RECORD statement as an 
eleven-character alphanumeric field. 

In the example A=B,C, B contains a decimal value being converted to 
alpha and stored in A (an alpha field) . The C represents an alpha 
field which contains the format strings to be used in the command. 



Table 1-3 
Special Characters 



Character 



Explanation 



Used in a format to arrange a decimal field for 
printout. Each X represents a digit and leading zeros 
are automatically suppressed. 



Special character used to suppress a digit 
formatting output. 



when 



Used in a format string to replace leading zeros and 
eliminate trailing spaces on printout. If the * is not 
the first character in the string, digits may also be 
replaced . 

Inserts an arithmetic sign in a number to be printed. 
The sign may be placed before or after the number. If 
the number is positive, a space is inserted where the 
is placed. If the hyphen is placed in a position 
following the first significant digit, but previous to 
the last position of a format string, it is printed 
like any other insertion character. 

Inserts a decimal point in a format string and forces 
zeros to the right of the decimal point to be 
significant. 

Used to insert a comma in a format string if there are 
significant digits to the left. 



All other characters 
characters . 



are treated 



as 



insertion 
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DISPLAY 



1.4.5 DISPLAY 

The DISPLAY statement is used with the VT05 terminal under both the 
COS 310 system and the COS 300 system but is used with the VT50 
terminal only under the COS 310 system. DISPLAY is used to show 
messages on the scope and to move the scope cursor to the specified 
line and character position. The DISPLAY statement is a means of 
displaying questions on the scope and storing the replies. 

The form of the DISPLAY statement is: 

literal ' I 
DISPLAY (y,x, ( afield ) ) 



where 



dfield 



is a decimal expression representing the scope 
line number (1-20). If the line number specified 
is not within 1-20, the results are unpredictable 
when used with VT05. If the line number specified 
is greater than the number of lines on a VT50 , the 
cursor is positioned to the last line of the 
screen . 



NOTE 

If y is zero, no positioning is done and x 
is ignored. The statement with y equal to 
is used to output a message without a 
carriage return/line feed i.e. DISPLAY 
(0,0, 'NAME') . 

X is a decimal expression representing the character 

position (1-72). If the character is not within 
1-72 the results are unpredictable. If the line 
number specified is greater than the number of 
lines on a VT50 , the cursor is positioned to the 
last line of the screen. 

'literal' is an alphanumeric or decimal character string. 
An alphanumeric string must be enclosed in single 
quotes (') and is displayed at the character 
position specified. There is no carriage 
return/line feed after the message and the cursor 
remains in the character position at the end of 
the message. 

A decimal literal must be one of the following 
codes : 

O=position cursor. 
l=clear to end of scope. 
2=clear to end of line. 
25=emit a bell or beep sound (COS 300 only) . 
7=emit a bell or beep sound (COS 310 only) . 
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afield 
dfield 



The above codes are the only special codes 
recognized by the COS - 300 and COS-310 systems. 
The use of other codes is possible. However, 
equivalent results will not be guaranteed on 
different or future versions of COS-300 and 
COS-310. 

is a field defined as alphanumeric which contains 
a message to be displayed. 

is a decimal defined field containing a code that 
either causes a particular operation to occur or 
causes a particular character to be displayed. 

The special codes are as follows: 



0=position cursor. 
l=clear to end of scope. 
2=clear to end of line. 
25=emit a bell or beep sound. 



(COS-300 only) 



NOTE 

The above codes are the only special codes 
recognized by the COS-300 and COS-310 
systems. Any other codes found in the 300 
field produce unpredictable results. When 
using COS-310 system, codes are converted 
into octal and transmitted to the terminal 
as ASCII characters. The 310 system uses 
code 007 to ring the bell. The 300 system 
uses code 25 to perform the same function. 



Examples : 

DISPLAY(0,0,25) 
DISPLAy(0,0,7) 
DISPLAY(1,1,1) 
DISPLAY(10,1,1) 

DISPLAY(2,20,DAY) 

DISPLAY(1,10,0) 
DISPLAY(11,1,2) 
DISPLAY(11,37,2) 



;ring terminal bell. (COS-300 only) 

;ring terminal bell. (COS-310 only) 

;clear entire scope. 

;clear from character position 1 
;line 10 to end of scope. 

;display the contents of 
;alpha field DAY on line 
; 2 starting at character 
;position 20. 

;position cursor at first 
;line, 10th character position. 

;clear line 11 starting at 
/•character position 1. 

;clear second half of line 
;11. 
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DISPLAY (00, 'DATE') 



DISPLAY(11,12,25) 
(COS-300 only) 



DISPLAY(11,12,7) 
(COS 310 only) 



DISPLAY(Y,X,BEEP) 



/display the word DATE starting 
;at the current cursor position. 

/position cursor at line 11, 
/character position 12 and 
;emit beep. 

/Position cursor at line 11, 
/character position 12 and 
/emit beep. 

/position cursor at coordinates 
/defined in X and Y and 
/execute code defined in 
/BEEP. If the programs 
/data division contains 

RECORD 

Y,D2,20 

X,D2,36 

BEEP, D2, 25 (COS 300 only) 

(For COS 310 replace above line with 

BEEP, Dl,7) 
/the cursor is set at line 20, 
/character position 36 and an 
/audible beep is sounded. 



DISPLAY (2 , 36 , FIRST) 



/if the data division contains 

RECORD 

FIRST, A4, 'NAME' 
/NAME is displayed at line 
/20 character 

/position 36. The cursor is 
/left in the 40th position of 
/line 20. 



DISPLAY (1,1, 'HELLO' ) 



DISPLAY(10,10,BEEP) 



/display HELLO in the 
/upper left hand corner 
/of the screen. 

/If the data division contains 

RECORD DISP 

POST, D2, 00 

CSCOPE,D2,01 

CLINE,D2,02 

BEEP,D2,25(COS 300 only) 

BEEP,D2,07(COS 310 only) 
/the cursor is placed at 
/character position 10 on line 
/lO and an audible beep 
/is emitted. 



See Appendix L for more examples. 
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END 



1.4.6 END 

This is an optional statement and is used to indicate the termination 
of a program. The form of the statement is 



where 



END[/x] 



/x 



is an optional switch to the compiler 

/N no compiler listing of source program storage 
map 



/L List source program storage 
printer 



map on 



line 



/T List source program storage map on terminal. 

If no options are specified, a compiler listing is 
produced as usual. The END option switch or lack 
of it can be overridden with an option switch in 
the compiler RUN command. If no symbol table is 
printed, the symbol count and number of free 
locations are not printed. 
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FINI 



1.4.7 FINI 

The FINI Statement writes an end-of-file mark, closes the file, 

rewinds the tape (if DECtape) and writes the file length in the file 

label (write only). (In multi-reel files the file length is written 
only on the last reel.) The form is: 

FINI (n) 



where n is a decimal expression whose val 
channel number which was previously spec 
FINI disassociates the channel number from 
INIT statement. (See Section 1.4.12.) Ass 
and devices can then be changed with anothe 
necessary for mass storage output files onl 
programming practice to FINI each data file 
an input file (other than from SYS), readi 
file may again be read (from the beginning) 
is executed. 



ue is 1-15 specifying a 
ified in an INIT statement, 
the device specified in the 
ignments of channel numbers 
r INIT statement. FINI is 
y but it is considered good 
INITed . If specified for 
ng of that file stops. The 
, if another INIT statement 



Examples: 



Legal 
FINI (1) 
FINI (005) 
FINI (A+B) 



Illegal 
FINI 
FINI ( 
FINI (4 
FINI, 3 
FINI (0) 
FINI (16) 



If an output file is not INITed, the end-of-file mark is not written 
and records may be lost. If an update file is not FINIed, the last 
few records written may be lost. 
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FORMS 



1.4.8 FORMS 

The FORMS statement is used to format line printer (only) output and 
has the form: 

FORMS (channel, skip-code) 



where 



channel 



skip- code 



is a decimal expression (value 1-15) associated 
with the line printer in a previous INIT statement 
(refer to Section 1.4.12). If the channel 
specified is not associated with a line printer, 
the statement is ignored. 

is a decimal expression with a value of to 4095 
which causes the line printer to go to the top of 
the page or skip the number of lines specified. 
The codes are: 



Example: 





1-4095 

-1 



-2 



-85 



go to top of next page 

skip this number of lines 

skip to channel 2 (LS8E printer only) 

and move paper forward n lines as 

specified on vertical forms control 

tape . 

print enlarged characters (LS8E printer 

only) for next XMIT statement. Allows 

only half as many characters per line as 

normal size printing. 

sound alarm bell (LS8E printer only). 



Other negative numbers cause unpredictable 
results. The skip-code is compiled modulo 4096. 
For example, FORMS (6 ,4096) causes a top of form to 
be executed. 



INIT(1,L) 



FORMS (1,3) 



1 is the channel number specified in a previous INIT statement and 
is the number of lines to be left blank. 
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INIT(5,L) 

FORMS (5,0) 
5 is the channel number and specifies top of line printer page. 
INIT(5,L) 

FORMS (5,-1) 

5 is the channel number and -1 causes the page to move up the number 
of lines specified on the vertical forms control tape of the LS8E 
pr inter . 
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GOTO 



1.4.9 GO TO 

The GO TO statement has two forms: (1) unconditional and (2) 
computed. It transfers control to the statement whose label is 
specified in the GO TO statement. 



1.4.9.1 Unconditional GO TO 

The form of the unconditional GO TO is 

GO TO label 
where 



label 

Example: 

Legal 



is a statement label assigned to the statement in 
the PROCedure section where control is to be 
transferred . 



Illegal 



GO TO 

GO TO, TARGET 



GO TO SET 

SET, TOT=TOT+SUB 

1.4.9.2 Computed GO TO 

The computed GO TO has the form: 

GO TO (labell,label2, ... ,labeln) , variable 
where 

labell,label2, . . . ,labeln are statement labels. (There can be any 

number of labels.) 



var iable 



is a decimal variable or expression 
representing a value. 



Control is transferred to the statement labeled labell, 
label2, . . .labeln if variable has the value l,2,...n respectively. If 
variable is negative, zero or greater than the number of labels, 
control passes to the next statement in sequence. 



Example : 



GOTO (LOOP, LIST, TOT) , KEY 
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KEY acts as a switch transferring control to LOOP if KEY=1, LIST if 
KEY=2, or TOT if KEY=3 . 

Other examples: 

Legal 

GO TO (LABI, LAB2, LABS) ,VAR 

GO T0(TRY,L00P2,TRY,TRY,T0P) ,Q+1 

GO TO (TEST) ,IN 

GO TO(Ll,L2,L3,Ll,L2,L3,OVER,L2,L3,LA83,W,Ll) ,NOW 

GO TO(EI,EI,C) , (TEST+2)*1-FLAG 

ILLEGAL 

GO T0( 

GO T0(LAB1,LAB2 

GO T0(L1,L2) 

GO T0(D1,D3) , 

GO T0(D1,D4)KEY 

GO TOO /COUNT 

GO TO(S0,L0,) ,PEAR 

GO T0(L1, ,L3) ,KIT 
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IF 



1.4.10 IF 

An IF statement conditionally executes certain statements on the basis 
of the result of a comparison of expressions. The form of the 
statement is: 

IF (expressionl. rel .expression2) stmnt 

where 

expressionl, expression2 are a combination of constants, 

variables or arithmetic expressions of 
the same type . 

.rel. is one of the following relational 

operators 

.EQ. Equal 

.NE. Not equal 

.LT. Less than 

.LE. Less than or equal 

.GT. Greater than 

.GE. Greater than or equal 

stmnt is a control statement which is executed 

if the relation is TRUE. "stmnt" must 
be one of the following 
GO TO label STOP 
CALL label TRACE 
RETURN NO TRACE 
ON ERROR label 

The two variables must be of the same type: both decimal or both 
alphanumeric. Numeric data may be in decimal or alphanumeric form. 
In a decimal comparison the shorter field is internally filled to the 
length of the longer field, then the comparison is made between the 
longer field and the zero-filled field. In an alphanumeric comparison 
the compare is made on the number of characters in the shorter field, 
i.e. in comparing a 3 character field and a 5 character field, only 
the 3 left-most characters of each field are used. 

If the result of comparison is false, the next statement in sequence 
is executed. 



Examples: 



Legal 

IF (A .EQ. B) GO TO LABEL3 

IF (SLOT.NE. 2) CALL BAD 

IF (SALES. LT.PROFIT+TAX-RENT) NO TRACE 

IF(A+B+C .GT. D+E*F) RETURN 

IF (NUMBER. LT.D+3) CALL FIXUP 



1-27 



Illegal 

IF (CLE. 76) 

IF (D2.EQ. 'ABC') THEN GO TO RAL 

IF (3.NE.5) D='FALSE' 

IF (Q.LE.R), GO TO TRADE 

IF (DIST.GT.RATE*TIME) GOTO (L1,L2),KEY 

IF 

IF ) E.GT.8) GO TO LAND 

IF (ABC ,GT. DEF) GO TO CHI 

IF (TIME.GT:10) GO TO BED 

IF (P-1 .LT. 0, GO TO UPDATE 

IF (D.LT.l .AND. D.GT.-3) GO TO NOW 

IF (COST .GR. EXPNSE) GO TO WR 

IF (TAX .LTE. 100) GO TO BUY 
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1.4.11 INCR 

The INCR (increment) statement adds 1 to the specified variable and 
has the form: 

INCR variable 

where 



var iable 



is a decimal variable to be incremented by 1. 



INCR can be used with positive numbers only and cannot be the object 
of an IF statement. INCR is typically used to add one to a counter 
and is faster than a data manipulation statement. For example: 



or 



A2=A2+1 
INCR A2 
Legal 



INCR A2(3) 
INCR B(5) 
INCR C(H,6) 



Illegal 

IF (A.LT.16)INCE B 
INCR A+B 
INCR 3 
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INIT 



1.4.12 INIT 

The INIT statement associates a channel number with a mass storage or 

character oriented device for input or output and initializes the 

device. The form of the INIT statement is: 



INIT (channel, dev[,data file name] [ , unit]) 



where 



channel 



dev 



is a decimal expression which evaluates to a number 
1-15 specifying a channel to be associated with a 
logical or physical device. (Refer to section 3.3 for 
logical unit assignments.) This number is then used in 
other statements such as XMIT to refer to the same 
device . 

If the number specified exceeds 15, it is taken modulo 
16. 

If not specified, the following channels are initially 
associated with devices at program startup. (The user 
may change these assignments with an INIT statement.) 

5 = Paper Tape Reader (COS 300 only) 

6 = Line Printer 

7 = Keyboard 

8 = Terminal scope or printer 

A channel that is associated with a logical unit must 
be FINIed prior to another INIT. 

is the designation for the COS device to be associated 
with the channel number. These designations can be 
abbreviated since only the first character is checked. 
The designations are: 



Desig- 


Abbrevi- 


nation 


ation 


INI 


I 


OUT 





UPDATE 


U 



KBD 


K 


TTY 


T 


LPT 


L 


CDR 


C 


PTP 


P 



Meaning 

Mass storage device to be used for input. 

Mass storage device to be used for output 

Mass storage device to be used for both input 
and output (direct access) (See READ and 
WRITE) 

Input from terminal keyboard 

Output to terminal printer or display 

Line Printer 

Card reader (COS 300 only) 

Paper tape punch (COS 300 only) 
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RDR R Paper tape reader (COS-300 only) 

SYS S Input from a file located on the system 

device. This file name must have been 

specified in a RUN statement. (Refer to 
Appendix L, Section 6.0.) 

data file name is an alpha constant or variable that identifies 
the data file on the logical COS unit. A data 
file name is necessary with the I. 0. and U 
devices and illegal with other devices. If the 
name is more than six characters only the first 
six are used. If less than six, the name is 
left-justified and padded with spaces on the 
right. It can also be the name of a field defined 
in the data section with the P option which allows 
flexibility in the files specified to the program. 

unit is an optional decimal expression used with 1,0 

and U device codes which specifies the logical 
unit (1-15) where the data file name is stored or 
to be stored. (If the number specified exceeds 
15, it is taken modulo 16) . On input this unit is 
checked for the data file name if it is not 
present, a MOUNT message is displayed; on output 
this unit is checked for the data file name or a 
temporary (scratch file) name, if another file is 
present, a REPLACE? message is displayed. 

The Monitor uses the name specified in the INIT statement in the run 
time MOUNT message (refer to Chapter 2). The reply to the MOUNT 
message is the logical COS unit where the file is stored (INPUT) or to 
be stored (OUTPUT) . The logical unit is then checked by the MONITOR 
to be sure the named file is indeed stored there. In the case where a 
logical unit is specified in the INIT statement, the Monitor checks 
the logical unit for the named file and if found bypasses the MOUNT 
message. If not found on that logical unit the Monitor displays the 
usual MOUNT message. 

Examples : 

INIT (15,1, 'RENEW ) 

initializes channel number 15 for input, (I). "Renew" is the name of 
the input file. 
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RECORD D 

TAPEID,A6,P 



PROC 



INIT (3,IN,TAPEID) 

The previous code causes the message ENTER TAPEID to be displayed. 
The user responds with the name of the file; a MOUNT message is then 
displayed and must be answered with the proper logical unit number. 
This allows different file names to be specified each time the program 
is run. 



INIT(1+1,IN,FILE1) 
initializes channel 2 for input (I) 
Legal 



Other examples 
Illegal 



INIT(1,IN, 'FILEOl ') 


INIT 


INIT(2, INPUT, 'FILE02') 


INIT( 


INIT(3,I, 'FILEOS') 


INIT(4 


INIT(4,IXYDREQW, 'LABEL') 


INIT<4> 


INIT(5,0UT, 'TAPEl') 


INIT, 3 


INIT(6,0UTCH, 'TAPE 2' ) 




INIT(7,0,RCRD) 




INIT (1, UPDATE, 'LABEL') 




INIT(3,UPD, 'L') 




INIT(6,U, 'L3') 




INIT(6,UP, •T453 ') 




INIT(5,KBD) 




INIT(5,TTY) 




INIT(4,K) 




INIT (1, TELETYPE, NAME) 




INIT(9,LPT) 




INIT(10,CDR) 




INIT(11,RDR) 




INIT(12,PTR) 




INIT (N, SYS) 




INIT(15,IN, 'MASTER' ,A+B) 
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1.4.13 ON ERROR 

This Statement can be inserted in the source program to cause a branch 
to the statement with the specified label when a non-fatal executed 
error occurs in the next program statement. The form of this 
statement is: 

ON ERROR label 

where label is a statement label assigned to the statement in the 
PROC section where control is to be transferred. 

The ON ERROR statement can be the object of an IF statement. 

Examples: 



ON ERROR ERRTRP 
TEMP=100*ORIG/NEW 



ERRTRP, 



ON ERROR TRAP 
DEC = ALPHA 



TRAP, 

The ON ERROR statement eliminates a return to the Monitor for the 
following run time errors. 

zero divisor 

bad digit in an alpha to decimal conversion 

more than 15 digits in decimal field used in calculation 

an end of file label was not specified in an XMIT statement 

input line overflowed block it was read into 
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no file specified in RUN command to satisfy INIT (SYS) 
statement 

in a random-access operation (see READ and WRITE) the file 
contains variable length records, record number is too large 
or 0, or length specified in the record header word does not 
match the length of the XMIT block. 
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1.4.14 PROC 

The PROC statement separates the two sections of a DIBOL program, the 
data definition section and the procedure section. It is of the form: 

PROC [n] [/x] [; comment] 

where 

n is a single digit, 0-7, (not an expression) 

indicating the maximum number of mass storage 
logical units which the program will have open 
simultaneously. If no number is specified, the 
compiler assumes 7. The available core is divided 
into buffers to handle the number of logical units 
specified. The more buffers necessary, the 
smaller they must be and the slower the I/O 
process . 

/x is an optional listing switch to the compiler 

/N temporarily halts compiler listing of source 
program 

/L resume listing source program and errors on 
line printer 

/T resume listing source program and errors on 
terminal 

The PROC option switch is active until disabled by 
a START or END statement with an option switch. 
There can be only one PROC statement. If no 
option switch is specified, a compiler listing is 
produced as usual. The PROC option switch can be 
overridden with an option switch at compile time. 
(Refer to Chapter 4.) 

comment is an optional string of text preceded by a 
semicolon which is stored for output as a heading 
for the procedure section of the compiler listing. 
When the compiler encounters the PROC statement 
the line printer moves to the top of the next 
sheet of paper and outputs the comment, if any, as 
a header line. 

If /N is specified in the RUN COMP command, it overrides any /L ' s or 
/T's in the source program. However, /L and /T determine on what 
device errors are listed. If the program simultaneously opens more 
mass storage logical units than were specified in the PROC statement, 
a run time error occurs. 
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Examples : 

Legal Illegal 

PROC PROC 32 

PROC 3; BILLING V3 PROC, 4 

PROC 3/N PROC 5+2 

PROC; PROC BILLING V3 

PROC 4/L; TEST PROG. PROC A 
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1.4.15 READ 

The direct access READ statement allows a specified data record to be 
moved from a named file to a specified area in core and has the form: 

READ (channel, record, rec#) 

where 

channel is a decimal expression with a value of 1-15 
specifying a channel number which links the READ 
statement to the related INIT statement. (The 
INIT statement must specify INPUT or UPDATE as the 
COS device.) 

record is the record into which data is to be read. 

rec# is a decimal arithmetic expression specifying the 

sequence number of the record to be read. 

If the program READS past the end-of-file mark, the results are 
undefined. See Section 1.4.22 for restrictions on usage. 

Examples: 

READ (5, REX, 88) 

reads the 88th record of the device linked to the channel which was 
INITed with the INIT (5,...) statement and places it in the core area 
labeled REX. 

READ (6,BLT,EXPR) 

reads the record specified by the expression EXPR and stores it in the 
core area labeled BLT. 

Refer to Appendix L for more examples and a discussion of direct 
access techniques. 
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1.4.16 RECORD 

The RECORD Statement reserves areas of core where records are stored 
during processing. Block can be used interchangeably with RECORD. 

The RECORD statement is of the form: 

RECORD [name] 
and is followed by statements of the form 

fldnam ,xn 

where name labels the record area; fldnam names a field within the 
record and xn specifies whether the field contains alphanumeric or 
decimal data, and the number of characters in the field. Storage is 
allocated in the order that the data appears. The RECORD name can be 
any number of alphanumeric characters in length (only the first 6 
characters are significant) and the first character must be 
alphabetic. The name is optional unless the program is to transfer 
(XMIT,READ or WRITE) the data. If no name is specified, the data is 
assigned to contiguous locations but is not available for input or 
output. Therefore, RECORD statements with no names are used for 
temporary storage. 

Examples: 

Legal Illegal 

RECORD RECORD $ 

RECORD ALPHA RECORD, ABC 

RECORD T1376 RECORD 564 

RECORD R RECORD, 

Each RECORD statement should be followed by one or more data field 
definitions. The data field name (fldnam) is optional and may be any 
number of alphanumeric characters in length (only the first 6 
characters are significant). The first character must be alphabetic. 
A comma may be used without a field name if the program does not 
reference the individual field. This specification is used when 
formatting an output line for the printer, for example, so that 
intercolumn spaces do not require a data name, only a comma followed 
by the type and size. 

Data field type (x) is alphanumeric (A) or decimal (D) . All 
input/output data to the line printer, terminal or high-speed paper 
tape reader should be in alphanumeric form (A). Decimal (D) is 
specified for data to be used internally by the program. However, the 
alpha representation of a positive decimal number is the same as its 
decimal representation. This is not true of negative numbers (refer 
to Appendix A). Data stored in alpha fields is generally 
left- justified and if necessary padded with blanks on the right. Data 
stored in decimal fields is always right-justified and padded with 
zeros on the left if necessary. The data field size (n) is a decimal 
number 1-510 specifying the number of characters in the field. 
Decimal fields to be used in arithmetic operations have a maximum 
length of 15 digits. If data size is omitted, 1 is assumed. The 
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total size of all data fields in a record must not exceed 510, if the 
record has a name (i.e. can be input or output), otherwise the total 
size must not exceed 4094. 

Examples: 

Legal 

RECORD MASTER 
A, D3 
Ml, D4 
M2, A6 
, A6 

RECORD TRANS 
CUST, A16 
ADD, A30 
KEY, D 
, DOS 

Illegal 

RECORD NUMBER 
SETNO Dll 
ORDERS, D632 

RECORD NUMBER 
B, A-6 
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Inserting Initial Values 

Initial values can be assigned to data fields as part of the field 
statements following a RECORD statement. The initial value may be set 
as part of the data field definition or marked for insertion via the 
terminal when the program is ready for execution. The maximum size 
(limited by the Monitor) of an initial value is approximately 110 
characters. If no initial value is assigned to a field it is 
initially set to all blanks (if alphanumeric) or zeroes (if decimal). 



If entered as part of the program, the alphanumeri 
constant is placed after the type and size specifica 
must separate the constant from the type and size specif 
initial value to be entered must agree with the 
specified for the field. The alphanumeric constant must 
in single quotation marks (' ') and may contain 
characters except \,',or _. Tabs inside the single gu 
are treated as spaces, 1 space per tab. A decimal 
string of decimal digits optionally preceded by a sign ( 
optionally followed by a minus sign. The signs (+ or -) 
not count as part of the size of the initial value. The 
not insert leading zeros or trailing spaces in initial v 



c or decimal 
tion. A comma 
ication. The 

size and type 

be enclosed 

any printable 

otation marks 

constant is a 
+ or -) and 

and quotes do 

compiler does 
alues . 



Examples 



Legal 



Illegal 



,A4, 'TEXT' 
M,D6, 000400 
PA,A2, '11' 
AA,D3,123 
AC, A3, '123' 
A,D3,-146 
B,D3,146- 
C,D3,+123 



,A4: 'NOTE' 

,A4, '3Q' 

, A3, 345 

,D4, 'WEED' 

,D4, 12 

,D4, 12345 

A3 '2 • 

A3, 'HELLO' 

AIT 

AD, A3, 



If the initial value is to be entered when the program is executed, 
put a comma and the character P after the type and size specification. 
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Example: 

fldnam,A8,P 

The character P is used in the data field specification to allow the 
user to enter data at run time. Before execution, the message 

ENTER fldnam 
is displayed on the terminal. The specification 

QZB135,A6,P 
causes the message 

ENTER QZB135 

to be printed at the terminal at run time. The reply may use six 
characters 

999999 

The terminal entry is stored in the field named. If the value entered 
at run time in response to the ENTER message is shorter than the 
field, the value is padded with blanks, if longer, an error will 
occur. The P should only be used with named fields and is executed 
once each time the program is run. 

NOTE 

When using the P option all information entered 
from the terminals is treated as alphanumeric 
e.g. , 

LABEL, A6,P 
in the data section causes the message 

ENTER LABEL 
If the user replies 

ABCD^ 

LABEL will equal 'ABCD '. The sequence 

LABEL, D7,P 
ENTER LABEL 
AB123^ 

causes LABEL to equal AB12300. 

A variable to be initialized with the P option can also be given an 
initial default value. 
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Example: 

NAME, A3, 'DOE' ,P 

The default value must agree in type and size with that specified for 
the field. The program uses the default value if CTRL/Z is typed in 
answer to the run time ENTER message. 



Examples : 



Legal Illegal 

ENT,A6,P ,D2P 

DUP,D8,P 
ZIP,A5, '00000' ,P 
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,D 



The character D is used in the data field specification to insert the 
current date (as specified to the Monitor at start up) in a field to 
be used in a report heading. The date is stored in the form mmddyy, 
e.g., June 25, 1972 would be stored as 062572. The field must be 
exactly six characters long or the date stored in it will be 
incorrect. This eliminates the necessity of specifying the P option 
and entering the current date each time the program is run. The P and 
D options cannot be used on the same field. 



Example : 



Arrays 



RECORD A 
DATE,D6,D 



A number of values can be represented with a single field name by 

placing a repetition count before the type and size specification. 

All elements of the array must be the same size and type. For 
example: 

TAG, 4D2 

defines TAG to be 4 decimal fields, each 2 digits long. Data can be 
initially entered in an array as a continuous string separated by 
commas. For example, 

TAG, 402,88,44,22,55 

It is not necessary to initialize all fields of an array. However, 
those fields to be initialized must be the first field and any 
continuous number of fields after the first field, for example: 

TAG, 4D2,88,44 



initializes the first two fields. The 
initialize the first array element only. 



P option can be used to 



Examples: 



Legal 



Illegal 



C,4D3 

D,5A2 

,2A4, 'BLUE' 

,1D7 

,16A1 
GOAL, 302,22,23, 33 
UP,4A2, 'AB' , 'CD' ,'EF' , 'GH' 
INPUT, 305, P 



,203, 34 

,203,4545 

,2A2, 'AMERICA' 

LABEL, 103, Al 

,3E4 

,006 

,-3A4 

,60-3 

GOAL, 302,222333 

UP,4A2, 'ABCDEFGH' 
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,s 



The character S is used in the data field to assign the value of a 
variable (A2) equal to the value of the options used at run time. 

Example: 

VAR,A2,S 

will set VAR to 'XY' if .RU pronam/XY is run. 
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RECORD Overlay Option 

The X option in a RECORD statement allows multiple definition of 
fields within a RECORD. Specify the overlay option as follows: 

RECORD, X 
or 

RECORD name,X 

The X option must be preceded by a comma. There can be one or more 
overlays defining the same record but there must be a preceding RECORD 
statement without an X. 

The overlay (X) record must be equal to or less than the size of the 
record being overlayed. 

Examples: 

Legal Illegal 

RECORD ONE RECORD TIME,X, 

RECORD X,X RECORD X (X IS A LEGAL RECORD 

RECORD, X NAME BUT IN THIS FORM DOES NOT 

INDICATE AN OVERLAY) 

The X overlay option is useful in reformatting a previously defined 
record area. For example, 

RECORD COLOR 

F1,A4, 'BLUE' 

,A1 
F2,A3, 'RED' 

has three alphanumeric fields with a total of eight characters. 
Fields Fl and F2 can be referenced individually. 

RECORD RAINBO,X 
ALL,A8 

overlays the previously described record and permits treatment as one 
field. The variable ALL contains BLUE RED and setting ALL to blanks 
in the PROC section sets Fl and F2 to blanks. The X option also 
allows access to a particular portion of the record by specifying 

RECORD B,X 
,A4 
Q6,A4 

which skips the first four characters and uses the last four. Q6 will 
contain the quantity ' RED'. 

The most common use for record overlaying is with print records. Each 
unique format for a report is kept in a separate record overlay. For 
example , 
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RECORD HEADl 

HI, AlO, 'HEADING #1' 

RECORD HEAD2 

H2, A23, 'THE SECOND HEADING LINE' 

RECORD PRINT 

PR132, A132 

RECORD ,X 

CUSTNO, AlO 

, A20 

CUSTNM, A30 

RECORD, X 

A35 
CUSADD, A20 

A5 
CUSZIP, D5 



; CUSTOMER NUMBER 
; CUSTOMER NAME 

; CUSTOMER ADDRESS 



PR132= 
XMIT(6 
PR132= 
XMIT(6 
PRINT= 
CUSTNO 
CUSTNM 
XMIT(6 
PRINT= 
CUSADD 
XMIT(6 
CUSADD 
CUSZIP 
XMIT(6 



HI 

, PRINT) 

H2 

, PRINT) 

=N0 
=NAME 
, PRINT) 

=ADDR1 
, PRINT) 
=ADDR2 
= ZIP 
, PRINT) 
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,c 



Records in programs which are loaded directly by the .RUN command are 
automatically cleared. That is, all decimal fields are set to zero 
and all alpha fields are filled with blanks, unless an initial value 
is specified. 

However, if the record is loaded as the result of a CHAIN statement, 
the record will retain whatever contents it may have had on the 
previous CHAIN unless the clear option (,C) is specified in the 
record . 

See Appendix L and Section 1.4.3 for more detail on CHAINing records. 
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RETURN 



1.4.17 RETURN 

The RETURN statement is placed at the logical end of a subroutine and 
has the form: 



RETURN 

The RETURN statement causes control to return to the next statement 
after the last CALL (or call implied by a TRAP statement) . 

It is illegal to attempt a RETURN if no CALL has been executed 
previously and the message RETURN WITHOUT CALL results. 



Example : 



CALL LIST 



LIST, A=B+C 

■CALL SECOND 




RETURN 
SECOND, D=A*10 

RETURN 




1-41 



START 



1.4.18 START 

This is an optional statement and can be inserted anywhere in the 
program. It is of the form: 

START [/x] [; comment] 

where 

/x is an optional listing switch to the compiler 

/N temporarily suspends listing of source program 

/L resumes listing of the source program and 
errors on the line printer 

/T resumes listing of the source program and 
errors on the terminal 

The START option switch is active until disabled 
by another option switch. The START/x statement 
may be inserted in a source program as often as 
necessary. If no option switch is specified a 
compiler listing is produced on the line printer. 
The switches can be overridden with an option 
switch at compile time. (Refer to Chapter 4.) 

comment is an optional method to store a line of text to 
be output as a heading on the compiler listing. 

Each time a START statement is encountered during compilation, a page 
eject occurs and a new page heading is printed. 

Examples: 

Legal 

START 

START ;KR376 6-CUST UPDATE 

START/L 

START/T;TEST PROG. LISTING 

START; 

Illegal 

ST 

STARTK176-REPORT 

START/ 

If /N is specified in the RUN COMP command, it overrides any /L ' s or 
/T ' s in the source program. However, /L and /T will then determine on 
what device errors are listed. 
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1.4.19 STOP 

STOP terminates program execution and returns control to the Monitor. 
The form of the statement is: 

STOP 

and it may be inserted anywhere in the PROCedure section. There may 
be more than one STOP statement in a program. STOP does not close 
files; a FINI statement must be inserted before the STOP to close 
files previously INITed . 

The END statement has the same effect as STOP but an END can only be 
used as the last statement in a program. 
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TRACE NO TRACE 



1.4.20 TRACE/NO TRACE 

These statements are helpful debugging tools and can be inserted 
anywhere in the PROCedure section of a program. The form of the 
statement is: 

TRACE 



NO TRACE 

Execution of the TRACE statement enables program tracing. 

Execution of the NO TRACE statement discontinues the TRACE function 
and is optional. The initial mode is NO TRACE. 

The appearance of TRACE statements in a program does not cause any 
TRACE output to be generated unless the /T option is specified when 
running the program. 

When program tracing is enabled and the /T switch is on, each DIBOL 
statement executed causes the line 

AT LINE xxxx 

where xxxx is the source line number of the statement to be output on 
the line printer. This tracing continues until execution of a NO 
TRACE. If the statement is a data manipulation statement, the value 
which is produced and stored by the statement is printed on the 
following line. 



For example: 



AT LINE 0200 
000006 



NOTE 



Indiscriminate placement of TRACE statements may 
cause excessive output to be printed on the line 
printer - this is often as bad as no output at 
all. To use the TRACE statement to best advantage 
an attempt should be made to "pin down" the 
problem to a certain part of the program flow and 
then, using conditional (IF) statements, trace 
only that part of the program. 
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Example: 

If a certain DIBOL program works correctly on records 1-53 of a file, 

but produces incorrect results on the 54th record and an inspection of 

the program fails to reveal the reason, the following statements can 
be added: 

In the data definition section: REGNO, D6 

at the beginning of the procedure 

section: RECNO=0 

after reading an input record: INCR REGNO 

NO TRAGE 

IF (REGNO. EQ. 54) TRAGE 

This will provide a complete trace of the operations performed when 
processing record 54, and only that record. 
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1.4.21 TRAP 

The TRAP statement allows a DIBOL program to spool output to the line 
printer while executing the program. The format of the statement is: 

TRAP label 



where 



label 



is the label of a line printer routine 



Whenever the line printer becomes free, DIBOL statement execution 
temporarily terminates and a call is made to the label specified in 
the last TRAP statement executed. (If no TRAP statement was executed, 
no call is made.) When a RETURN is made from this call, normal program 
execution resumes. The TRAP statement normally precedes a FORMS or 
XMIT statement. 

The following example prints numbers 1-500 on the line printer while 
some other task is being performed: 



N, 



LOOP, 
SUB, 



RECORD A 
D3 

PROC 

TRAP SUB 
FORMS (6,0) 



; START LPT 



; PERFORM TASK 



IF (N.LT.500) GOTO LOOP 

STOP 

N=N+1 

IF (N.GT.500) RETURN 

XMIT (6, A) 

RETURN 
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Typically, the TRAP statement would be used in a program as follows 

RECORD LPREC 
, A80 

RECORD 
LINCT, D2 
LPFLAG, 01 

RECORD HDG 

A60, • • 



PROC n 



INIT (1,IN, 'INFILE ') 
INIT (6, LPT) 
CALL PGTOP 

; PERFORM TASK 

DONE, IF(LPFLAG.EQ.O) GO TO DONE ;LPFLAG=0 IF TASK IS 

; COMPLETED BEFORE 



; PRINTING 



STOP 

LPTRTN, IF(LPFLAG.NE.O) RETURN 
LINCT=LINCT-1 

IF(LINCT.EQ.O) GO TO PGTOP 
XMIT (1, LPREC, LPEOF) 
TRAP LPTRTN 
XMIT (6, LPREC) 
RETURN 



PGTOP, LINCT=50 ; INITIALIZE FOR NEXTPG 

TRAP PGTOPl ;WHERE TO GO NEXT 

FORMS (6,0) ;SKIP TO NEW PAGE 

RETURN ;G0 BACK 
PGTOPl, TRAP PGT0P2 ;WHERE TO GO NEXT 

XMIT (6, HDG) 

RETURN 
PGT0P2, TRAP LPTRTN 

FORMS (6, 3) 

RETURN 
LPEOF, LPFLAG=1 

FORMS (6,0) 

RETURN 
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NOTES 

1. If the line printer buffer becomes empty during execution of 
an INIT, XMIT, READ, WRITE, DISPLAY or FINI Statement while 
I/O is in progress the trap will be delayed until execution 
of the statement is complete. 

2. If the line printer buffer becomes empty during execution of 
an ACCEPT statement the ACCEPT statement will be interrupted 
and resumed. The user typing in response to the ACCEPT 
statement will not be aware that the statement was 
interrupted and the ACCEPTed data will be correct provided 
the TRAP subroutine takes no longer than approximately 150 
milliseconds to execute. In the example above the execution 
time of the TRAP routine is much shorter than 150 
milliseconds if INFILE is on disk. If INFILE were on DECtape 
the TRAP routine might take up to one-half second to execute 
and the ACCEPT statement might lose some input. 

3. Always construct a TRAP subroutine so that output to the line 
printer is immediately followed by a RETURN statement (as in 
the example) . 

4. Due to a lack of line printer buffer space in the Monitor, 
users with TD8/E DECtape and Centronix line printer are 
limited to output lines of 76 characters in length when using 
the TRAP statement. Outputting longer lines will result in 
the program spending all of its time servicing line printer 
TRAPS, thus cancelling the advantage of the TRAP statement. 

5. The TRAP statement will not work on Analex line printers. 

6. In the above example, the main DIBOL program will be slowed 
down by approximately 5 to 10% by the TRAP processor 
providing that INFILE is on disk. 
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1.4.22 WRITE 

A direct access WRITE statement allows a specified data record to be 
moved from an area in core to a specified file and has the form: 

WRITE (channel , record, rec#) 

where 

channel is a decimal expression with the value of 1-15 
specifying a channel which links the WRITE 
statement to the related INIT statement. (The 
INIT statement must specify UPDATE as the COS 
device. ) 

record is the record from which data is output. 

rec# is a decimal expression specifying the sequence 

number of the record to be written. 

Example : 

WRITE(5,REX,88) 

returns the 88th record from the core area REX to the device 
associated with the channel specified with the INIT (5,...) statement. 

NOTE 

Because of the harm which the READ and WRITE 
statements could cause if improperly used, several 
restrictions have been placed upon their use: 

1. The channel involved must refer to a mass 
storage device. 

2. The file to be accessed with READ or WRITE 
operations must contain records of a uniform 
size. 

3. Only one reel of a multi-reel file (the one 
currently mounted) may be accessed by a 
READ/WRITE statement. 

4. The record which is specified must be exactly 
the same size as the records of the file being 
accessed . 

5. Attempting to READ or WRITE over the 
end-of-file mark results in an error message 
and termination. 
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6. In general, READing or WRITing a record which 
comes after the end-of-file results in an 
error message; however, a fortuitous 
configuration of words on the unit being 
accessed may cause the operation to succeed 
and results in garbled data (on a READ) or the 
loss of the output record (on a WRITE) but 
does not crash the COS system. 

7. Unless the user provides a FINI statement 
before terminating his DIBOL programs which 
have UPDATE files, the data from the last few 
WRITE statements may not be output properly. 

Refer to Appendix L for more examples and a discussion on direct 
access techniques. 
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1.4.23 XMIT 

The XMIT Statement transfers a data record and is of the form: 

XMIT (channel, record [, eof label]) 

where 

channel is a decimal expression whose value is 1-15 
specifying a channel number which associates the 
XMIT statement with the related INIT statement. 

record is a name previously used in a RECORD statement 
which identifies the area in core to which or from 
which data is to be transmitted. It may be a 
simple or subscripted variable or a record 
literal . 

One must be very careful when using subscripted 
record names. 

A single subscript, such as REC(3) should only be 
used if there are consecutive records, beginning 
with REC and all of the same length as REC, i.e., 

RECORD REC ; REC ( 1 ) 

,D6 

,A10 
RECORD ;REC(2) 

,D6 

,A10 
RECORD ;REC(3) 

,D6 

,A10 

If a double subscript form is used, i.e., REC 
(n,m) , then n must be less than m-1, n must be odd 
and m must be even (or the last character in the 
record). This double subscript form refers to 
characters n-2 through m-2 inclusive in record 
REC. (If n=l, it refers to characters 1 through 
m-2.) Whenever an XMIT occurs referring to the 
record, two characters before character n in the 
record are destroyed. This is the COS 300 word 
count (see Appendix G) . The user need not be 
concerned about this if n=l. 

eof label is the label of a statement to which the program 
branches if an end-of-file is read. Used with 
input files only. (Refer to Statement Labels at 
the beginning of this chapter.) Label is optional 
but if not specified, an error message is output 
when an end of file occurs. 



Examples: 



XMIT (3,INV,E0F) 
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transfers a record from the input file associated with the statement 
INIT (3, IN,...)/ to the RECORD area in core labeled INV. If 
end-of-file is reached, control branches to PROCedure section 
statement labeled EOF. If the length of the record being read is 
greater than the defined size, an error message is output at run time. 
If the length is less than the defined size, the record is 
left- justified and padded with spaces on the right. 

XMIT (1,CUST,NEXT) 

transfers a record from the input file associated with the 
INIT(1,I, . . .) statement to the RECORD area CUST. At end of file, it 
branches to the statement labeled NEXT. 

The statement 

XMIT (2, BUFF) 

takes a record from RECORD area BUFF and puts it in the file 
associated with the INIT (2,...) statement (assuming channel 2 is 
initialized for output, LPT etc.). 

XMIT (8, "HI THERE') 

would output the message HI THERE on the operator's terminal if 
channel 8 was INITed to the TTY. 

XMIT (8,CUST(1,7) ,EOF) 
accesses the first five characters of the record area CUST. 
Other examples: 

Legal 

XMIT(N,B2) 

XMIT ( FUNCT ( I ) +2 , FOO ) 

XMIT(7,ROD,LAB3) 

XMIT(9,BLKNUM,L) 

XMIT(3,B1) 

XMIT(M,B23A,I) 

XMIT(1,HHAA,FFPP) 

XMIT (8, "MOUNT INVOICE FORMS') 

XMIT(15,REC(1,33) ) 

XMIT (CHAN, REQ(l,INV0C+6) ) 

The XMIT statement may be used with direct access READ and WRITE 
statements for operations on files. See Appendix L for details. 
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PART II 
SYSTEM AND UTILITY 
PROGRAMS 



CHAPTER 2 
MONITOR 



The Monitor is the master control program for the COS system. It 
contains all the system I/O handlers: 

.LA30 VT05, LA36, VT50 (LA36, VT50 , COS-310 only) 

.DECtape 

.RF08 (COS 300 only) 

.RK08 

.RK8E 

.RXOB 

•Line Printer 

.Card Reader (COS-300 only) 

.High-speed Paper Tape Reader (COS-300 only) 

.High-speed Paper Tape Punch (COS-300 only) 

The Monitor enables the user to edit, compile, save, and execute user 

programs. It also maintains a directory of all programs stored on the 

system device, labels files when required, and opens and closes files 
as needed. 

During program execution the Monitor produces the messages which 
instruct the user to mount files. It also provides the means for 
BATCHing several programs for sequential execution. 

Table 2-1 lists the special key commands that are available in on-line 
operations. 

The editing feature of the Monitor can be used to create SYSGEN tables 
and source files on the system device for later use. 



2.1 OPERATING PROCEDURES 

The Monitor must be loaded via a bootstrap routine each time the 
system is restarted. (Refer to Appendix B.) Monitor signals that it 
is loaded into memory by displaying the message 

COS MONITOR 5.05 (or current version number) 

DATE? 
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Type the DATE command, a space, the current date, and the CR key in 
the form .DA mm/dd/yy. For example .DA 1/25/72. The date must be 
entered before proceeding. This date is used during program execution 
to date reports, files, and new programs created. The Monitor 
responds to the date with a dot to indicate it is ready to accept any 
of the commands shown in Section 2.2. 
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Table 2-1 
Monitor Key Commands 



Key 



Function 



CTRL/C 



CTRL/N 
(COS 300 
only) 



CTRL/0 



CTRL/Q 
(COS 310 
only) 

CTRL/S 

(COS 310 only) 

CTRL/U 

CTRL/V 



Returns control to the Monitor. The Monitor 
displays a dot and awaits a command. If already 
in the Monitor, CTRL/C has the same effect as a 
CTRL/U. 

Turns on imbedded numeric keypad at terminal and 
can be used in a BUILD or DIBOL program for 
numeric input. Type CTRL/N a second time or 
return to the Monitor and the feature is turned 
off. When the feature is turned on certain keys 
are interpreted as numbers as indicated below. 

Key Value 



J 


1 


K 


2 


L 


3 


U 


4 


I 


5 





6 


M 






NOTE 

Keys 1, 8, and 9 have values 1, Q, and 
These ten keys form a numeric keypad. 



9. 



Suppresses terminal echo of typed output. If echo 
is already suppressed, CTRL/0 restores the 
terminal echo. CTRL/0 is also used to halt and 
resume output from an LI command or the compiler. 
The echo always resumes the next time the dot is 
printed. All suppressed output is lost. 

Resumes output to the terminal from the point at 
which it was halted by CTRL/S. 



Halts output to console terminal, 
are lost. 

Deletes the current input line. 



No output data 



Suppresses echo of Monitor message COS Monitor 
5.03. The Monitor displays a dot (.) when CTRL/V 
is typed. If message is suppressed, type CTRL/V 
to enable message. CTRL/V has the same effect as 
CTRL/U . 



2-3 



■raoj-e z-l ^uon-c. ; 
Monitor Key Commands 



Key 


Function 


CTRL/Z 
RUBOUT 


Signals the end of input and returns control to 
the Monitor. Halts output of line numbers from LN 
command . 

Erases the last character typed and echoes the 
deleted character. RUBOUT cannot be used in all 
instances; if the character to be deleted does 
not echo when RUBOUT is typed, type CTRL/U and 
retype the line. 
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2.2 MONITOR COMMANDS: 

The commands 

BATCH 

DATE 

DELETE 

DIRECTORY 

PLEASE 

RUN 

SAVE 



apply to Monitor functions. Only the first two characters of the 
command need be typed. (R is sufficient for the RUN command.) Any 
additional characters up to the first blank are ignored. All commands 
must be terminated by typing the CR key. With the exception of RUN, 
the Monitor commands have no effect on system programs (COMP, SORT, 
etc.). Refer to Section 2.3 for editing commands. 
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BA 



2.2.1 BATCH 

With the BATCH command a string of Monitor commands can be executed 
sequentially. As soon as the execution of one program ends, another 
is automatically started. The form of the BATCH command is: 

.BATCH pronam 

where 

pronam is the name assigned to a list of Monitor commands 
previously created via editing commands and saved 
with a WRITE command. 

For example: 

.0090 RUN C0MP,J0B1 

.0100 SAVE JOBl 

.0110 RUN SYSGEN, SYSTAB 

.0120 RUN JOBl 

.0130 RUN J0B2 

.0140 RUN SORT, SRCL 

.0150 RUN SYSGEN,OLDTAB 

.0160 DE JOBl/B 

All programs batched must be on the system device. The Batch program 
can contain another BATCH command only as its last line. 

When a Monitor command is read from the BATCH file, it is displayed on 
the terminal and executed. Type CTRL/C to terminate a BATCH program. 
The BATCH must then be restarted at the beginning. 

All of the necessary programs and data files must be available; if an 
error occurs, BATCH Monitor mode terminates, control returns to 
interactive mode, and a dot is displayed on the terminal. 

Correct the error in the program being executed and restart the BATCH 
program at the beginning or individually type each command left to be 
executed . 

When the BATCH program is finished, control returns to the Monitor and 
a dot is displayed on the terminal. 
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DA 



2.2.2 DATE 

The DATE command stores a date to be assigned to any program created 
or reports printed until a new DATE command is issued or the system is 
restarted. The DATE command is of the form: 

. DA mm/dd/yy 

where 

mm is a number 1-12 
dd is a number 1-31 
yy is a number 72 - 79 

If the date entered does not conform to the above restrictions, an 
error message is displayed. 

This command must be entered whenever the Monitor is restarted. It 
may also be used whenever it is necessary to change the system date. 



Examples : 



.DA 1/25/72 
.DATE 12/5/73 
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2.2.3 DELETE 

The DELETE command removes the named source, binary, or system program 
from the specified device directory. 

The DELETE command is of the form: 

.DE pronam[ ,dev] /X 



where 



pronam 
dev 



/X 



Examples : 



is the name of the file to be removed from the 
directory. 

is the 3-character designation for the physical 
device where the file is stored 

DECtape = DT0-DT7 
disk = DK0-DK3 
diskette = RX0-RX5 

If no device is specified, the system device is 
assumed . 

Is a 1- or 2-character code indicating whether the 
file to be deleted is a source (S) , binary (B) or 
system (SV) file. This code is necessary to 
differentiate between three files with the same 
name but of different types. The code SV is used 
rather than V to make it more difficult to 
inadvertently delete a system file. 



Legal 
DE JOBl, DTl/B 
DE PR0GA,DK3/S 
,DE INV/S 
DE CONVEX/SV 



Illegal 
.DE JOBl 
.DE CONVEX/V 



See Chapter 3 for a description of device designations. 



The types of programs in the COS-300 
system are as follows: 

V - system program 

S - source file 

B - binary (COMP) 

F - binary (FORMC) - (COS-300 only) 

M - binary (MCOMP)- (COS-300 only) 
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where 



Dl 



2.2.4 DIRECTORY 

The DIRECTORY command prints a list of programs stored on a physical 
device or the label of the file stored on a logical unit. The form of 
the command is: 

.DI i [physical device] [/T] 
\ /logical unit# 

physical device is one of DT0-DT7, RX0-RX5 or DK0-DK3 and 

must be preceded by a comma or space. If not 
specified the system device is assumed. 

logical unit# is the number (0-15) of the logical unit 

assigned with SYSGEN. A logical unit # must 
be preceded by a /. Specifying a logical 
unit causes a data file label to be printed. 
If the unit is a physical device which has 
more than one logical unit, the DI command 
must be repeated for each logical unit to be 
labeled . 

/T is an optional switch which causes the 

directory to be output to the terminal. 

A directory contains the current date, names of programs, types of 
programs, length in 256-word blocks (LN) and the date the program was 
stored. Be sure the line printer is on-line before issuing the DI 
command . 

A file label contains the file name, sequence number (if a multi-reel 
file), the date the file was created, file length in segments, and 
logical unit number where the file was stored when the label was 
requested. Segments are 16 256-word blocks long. 

See Chapter 3 for a description of device designations and logical 
unit numbers. 
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Examples: 

.DI DKO 

causes a directory similar to the following to be printed on the line 
pr inter : 

DIRECTORY 15-FEB-72 

NAME TYPE LN DATE 

COMP V 14 19-JAN-72 
MORE S 10 15-FEB-72 

<0006 FREE BLOCKS> 
TST2 S 07 12-FEB-72 

<0007 FREE BLOCKS> 
TST4 S 07 15-FEB-72 
GLOP S 10 15-FEB-72 

<0579 FREE BLOCKS> 

The command 

j.DI/3 

outputs a file label similar to one below. 

**************************** 

* * 

* NAME SEQ. DATE * 

* * 

* DEP #01 18-NOV-75 * 

* * 

* LENGTH: 0046 UNIT: 3 * 

* * 
**************************** 
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2.2.5 PLEASE 

The PLEASE command outputs a message to the terminal during a BATCH 
program execution. 

The form of the PLEASE is: 

PLEASE text string 

The message is displayed exactly as entered and the terminal alarm is 
sounded. After taking the action requested in the PLEASE message, 
type any one key to continue' the BATCH program. To make a two-line 
PLEASE command, the first line can be terminated with an AND and the 
second line begun with another PLEASE. This lets the operator know 
more message is to follow. 

For example: 

002 RUN JOBl 

0030 PLEASE PUT INVOICES IN LINE PRINTER AND 

004 PLEASE TYPE 3 TO THE NEXT MOUNT MESSAGE. 

0050 RUN J0B3 

0060 PLEASE PUT REGULAR PAPER IN LINE PRINTER 

When this BATCH program is executed, JOBl will be run, the first 
PLEASE message will be displayed and the terminal alarm sounded. The 
system waits for a key to be typed in reply to the PLEASE message then 
displays the next PLEASE message. When a key is typed in reply to the 
message, J0B3 is executed and the last PLEASE message displayed. 
Control returns to the Monitor when a key is typed in reply to the 
last PLEASE message. 

If a PLEASE command is given when in a non-BATCH mode, following the 
CR, the bell rings and the system waits for a key to be typed. 
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2.2.6 RUN 

The RUN command loads and executes the named system or binary program 
using the named file. This is the command which provides access to 
all other system programs such as: 

SYSGEN To change or check system configuration 

BUILD To build data files 

SORT To sort data files 

UPDATE To update data files 

PIP To move information between physical devices. 

COMP To compile a user source program into the binary 
program. 

The RUN command has the form: 

.RU [pronam] [+chainl+. . .+chainn] [ ,f ilnaml , . . . ,f ilnamn] [/xx] 



where 



pronam is the name of the system program to be run or 
pronam+chainl. . . are binary files which are part 
of a program and constitute one large program 
broken up into several chains. For example: 

.RUN PROG+CHAIN1+CHAIN2+CHAIN3 



would execute program PROG. PROG would then 
determine whether programs CHAINl, CHAIN2 or 
CHAINS would next be run. See section 1.4.4 for a 
description of the CHAIN statement. If the 
program name is omitted. Monitor loads and 
executes the last compiled DIBOL program from the 
compiler's scratch area. 

f ilnaml , . . . ,f ilnamn 

are source files which must be on the system 
device. If one of the system programs is executed 
via the RUN command and no source files are 
specified as input, the file in the editing 
scratch area is used as input (system programs 
only) . 

The maximum number of binary and source files per 
program is eight. Multiple files are concatenated 
and passed to system programs as one large file. 

/xx is one or a combination of the option switches 

including /T which enables the TRACE feature and 
/D which enables the DDT mode. 
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other options are described with the programs to which they apply. 
Refer to the appropriate chapter for more detailed information on 
these programs. 

If the program specified is not found, an error message is produced. 

The RUN command is the only Monitor command which can be abbreviated 
to one character, R. 



Examples : 

Command 

.RU 

.RU JOBl 



Explanation 

executes previously compiled DIBOL program from 
the Compiler's scratch area. 

runs program called JOBl 



.RUN COMP, CHECK this command compiles the source program CHECK, 

prints a compiler listing and temporarily saves 
the binary on the system device. 

.R BUILD, FD, I0,FILE1,FILE2 

this command builds a data file in the format 
specified in the Field Descriptor (FD) and I/O 
section (10) of the BUILD control program with the 
data in FILEl and FILE2. 

MOUNT Messages 

The Monitor outputs MOUNT messages to the terminal whenever an input 
or output unit must be specified. These messages have the form: 

MOUNT xxxxxx #nn FOR INPUT: 

MOUNT xxxxxx #nn FOR OUTPUT: 



where 



xxxxxx 



#nn 



is the name of the data file desired by the 
program currently executing. 

is a sequence number from 1 to 63. 



Answer the MOUNT message with the appropriate logical COS unit (1-15). 
If an error is made in the reply, type CTRL/U and the correct reply. 

The MOUNT message is displayed (and the sequence number incremented) 
whenever the program reaches the end of the device and more 
information remains to be read or written. 

When default units specified in control programs are not available, a 
question mark precedes the MOUNT message, i.e., 

7M0UNT xxxxxx #01 FOR INPUT: 

The message 

REPLACE xxxxxx #nn? 



2-13 



is displayed when a file is already stored on the logical unit 
specified to a MOUNT message. Answer REPLACE with a Y and the CR key 
to replace the old file or any other key to keep the old file. File 
labels beginning with any character other than A-Z, [, ^ , or ] are 
considered to be temporary files, and no REPLACE message is displayed 
when such files are about to be written over. The following error 
messages can occur : 



IN USE 
ILLEGAL UNIT 



NOTE 



Occasionally, if output is to a scratch unit, a 
garbled filnam or sequence number in the "REPLACE" 
message may be typed. This is because the area on 
the unit where the label should be is simply 
random characters. Just answer "YES" to the 
REPLACE message as usual. 
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2.2.7 SAVE 

This command stores the binary program from the compiler scratch area 
on the named device. The form of the SAVE command is: 

^SAVE pronam[ ,dev] [/Y] 

where 

pronam is the name to be assigned to the compiler's 
binary output. 

dev is any mass storage device DT0-DT7, RX0-RX5 or 

DK0-DK3 which has a directory. If no device is 
given, the system device is assumed. 

/Y is used to bypass the REPLACE? message and YES 

response when a duplicate name would be 

encountered. Normally used in a BATCH mode to 
bypass operator response. 

The SAVEd program must be moved to the system device before it can be 
executed. Depending on the compiler used (COMP, FORMC, or MCOMP) , the 
saved binary will be of type B, F, or M, respectively. 



2-15 



2.3 EDITING COMMANDS 

The COS Monitor contains a line editor; that is, all insertions, 

changes, and deletions are done with line numbers. All text input to 

the Monitor is assigned a sequence of line numbers. For example: 



0100 


START 




Olio 


RECORD 


A 


0120 


Al, 


A64 


0130 


PROC 2 




0140 




INIT (2, IN, 'MINT') 


0150 


LOOP, 


XMIT (2, A, EOF) 


0160 




XMIT (8, A) 


0170 




GO TO LOOP 


0180 


EOF, 


FINI(2) 


0190 


STOP 




0200 


END 





The commands: 

ERASE 

FETCH 

LIST 

Line Number 

Number Commands 

RESEQUENCE 

WRITE 

apply to the editing functions. These commands can be entered at any 
time in response to the dot displayed by the Monitor. Only the first 
two characters of the command need be typed and all commands must be 
terminated by typing the CR key. 
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2.3.1 ERASE 

This command erases text from the edit buffer (that portion of core 
where the Monitor stores text being edited). The form of the command 
is: 

.ER [nl] [,n2] 

where 

nl is the line number of the line to be erased or the 

first line number of two which delimit the lines 
to be erased. If omitted, erasing starts at the 
beginning of the text buffer. 

n2 is the second of two line numbers indicating where 

erasing ends. If n2 omitted, but the comma is 
included, erasing continues to the end of the edit 
buffer . 

If no line numbers are entered, the ERASE command clears the entire 
edit buffer. Use this command to erase the edit buffer before 
entering material to be edited. 



Examples : 



. ER clears the entire edit buffer. 

. ER 5 clears line 5. 

. ER ,5 clears from the start of the buffer to line 5. 

. ER 5,10 clears from line 5 to line 10, inclusive. 
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2.3.2 FETCH 

The FETCH command loads the named source file into core from the 
specified device. The form of the FETCH command is: 

.FE pronam [ ,dev] 

where 

pronam is a previously created program which is to be 
brought into core. 

dev is the 3-character designation of the physical 

device, DT0-DT7, RX0-RX5 or DK0-DK3 where the 
program is stored. dev may be separated from 
pronam by a space or comma. 

If device is omitted, the system device is 
assumed . 

Monitor searches for the named program. If the program is not found. 
Monitor displays the message 

FILE NOT FOUND 

Retype the command with the correct program name or device. 

If another program is run while this program is in the active work 
area. Monitor temporarily stores this file in the editing scratch area 
on systems device, then returns it to core when program execution is 
complete . 

Examples : 

. FE RICH Moves program RICH from the system device to the 
edit buffer . 

.FE PAYR0L,DT2 Moves program PAYROL from DECtape unit 2 to the 
edit buffer . 

.RUN XYZ Runs a program called XYZ. On completion of this 
program, the PAYROL source file is in the edit 
scratch area. 

The FETCH command erases the edit buffer before inserting the FETCHed 
program. 
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2.3.3 LIST 

The LIST command outputs the specified lines or the entire edit buffer 
to the high-speed punch, line printer, or terminal. 

The LIST command has the form: 

_^LI [nl] [,n2] [/x] 

where 

nl is the line number of the line to be listed or the 
first line number of two which delimit the lines to be 
listed. If omitted, listing starts at the beginning of 
the text buffer . 

n2 is the second of two line numbers indicating where 
listing ends. If omitted, but the comma is included, 
listing continues to the end of the edit buffer. 

/x is the one letter code which indicates the output 
device. 

/L line printer 

/P high speed punch (available on COS 300 only) 
(line numbers are omitted) . 

If no device is indicated, the list is output to the 
terminal . 

If no line numbers are specified, the entire edit buffer is output to 
the specified device. Type CTRL/0 to stop output from an LI command. 

Examples: 

^LI /L List entire edit buffer on line printer. 

_^LI 5 List line 5 on the terminal. 

.LI ,5 List from start of buffer to line 5 on the terminal. 

_^LI 5,/P List from line 5 to the end of the buffer on the 
high-speed punch. 

.LI 5,10 List line 5-10, inclusive, on the terminal. 
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2.3.4 Line Number 

The Line Number command automatically outputs line numbers at 
specified increments so new lines can be entered without typing each 
line number. 

The Line Number command has the form: 

^LN [n] [,inc] [/x] 

where 

n is the starting line number. If no starting line 
number is specified, 100 is assumed. 

If the comma after the starting number is omitted, the 

starting number and increment number are the same, 

i.e., LN 100 causes a starting number and an increment 
of 100. 

If the command is LN 100, the start line number is 100 
and the increment remains unchanged unless the Monitor 
is read back into core; at which time the increment 
returns to 10. 

inc is the increment between line numbers. If no increment 
is specified, 10 is assumed. 

/x is the input device (available with COS 300 only). 

/R high-speed reader (All rubouts are ignored so that 
paper tapes with TABS followed by RUBOUTs will be 
read correctly.) 

/C card reader 

/T low-speed paper tape reader. 

If no device is specified, the terminal is assumed. 
Line numbers are specified by the LN command and cannot 
be part of the text read from the input device. 

If Line Number mode is terminated and some editing has been done, type 
the line number command, LN, with no arguments to display the next 
number in sequence. When inputting from the card reader, all 80 
columns are stored (40 columns with mark-sense cards) . 

The LN command does not clear the edit buffer. Line Numbers to 4095 
are available. Under the default conditions (start at 100, increment 
by 10), the program can be approximately 400 lines long. 

The maximum number of characters on a line, including the line number 
and space, is 120. In automatic line number mode the line number and 
space are counted as two characters. When the terminal line is full. 
Monitor executes carriage return/line feed and since this is a 
continued line does not display the next line number. 

If the 120 characters limit is exceeded, the Monitor gives the error 
message LINE TOO LONG and the line is lost. 
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If a CR is the first character typed, no line is entered and line 
number increments. To obtain a blank line, type space and CR. 

Tabs can be used to increase the readability of a program. The tab 
key on most terminals is set to produce up to 8 spaces. The first tab 
goes to column 13 because the line number and space take the first 
five positions. 

Type CTRL/Z to indicate the end of input and halt the automatic line 
numbers. When input is coming into the Editor from the card reader, a 
beep sounds to indicate no more cards. Load more cards into the 
reader and type any character to continue the input or type CTRL/Z to 
indicate the end of input. 

Examples : 

^LN Requests line numbers starting at 100 with increments 
of 10. The terminal is assumed to be an input device. 

The terminal display would be 

.0100 

Type the first line of the program and the CR key. 
Editor displays the next line number each time the CR 
key is typed . 

.0100 START 
.0110 

. LN 10,5/R Requests line numbers starting at 10 with increments of 
~ 5 to be assigned to input from the high-speed reader. 

.LN ,100 Request line number starting at 100 (default) with 
~ increment of 100. Input is from the terminal. 

.LN 10/C Requests line number starting at 10 with increment of 
~ 10 (default) . Input is from card reader. 

If an error is made when using automatic line numbers, type RUBOUT or 
CTRL/U. RUBOUT erases the last character typed and echoes the erased 
character. CTRL/U erases the entire line. Monitor redisplays the 
line number. CTRL/C acts the same as CTRL/U. 

If the edit buffer is full, the error message TEXT AREA FULL appears, 
and the last line entered is lost. The edit buffer must be separated 
into two or more source filees. This is done by: 

1. WRiting the edit buffer as file B. 

2. ERasing the last half of the edit buffer. 

3. WRiting the edit buffer as file A. 

4. FEtching file B. 

5. ERasing the first half of the edit buffer. 

6. WRiting the edit buffer as file B. 
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2.3.5 Number Commands 

Any line beginning with a number inserts the line number and text in 
the edit buffer . 

The form is: 

nnnn 
or 

nnnn text 

where 

nnnn is a line number. 

text is the data to be inserted in the buffer. The data 
must be separated from the line number by a space 
or tab. (If tab is used, it becomes the first 
character of text.) 

If text is already at that line number, the new text replaces it. 
Files are stored in increasing line number order and a new line number 
is inserted in numerical order. If a CR is typed right after the line 
number, data at that line number is cleared from the buffer. 

The input line is limited to 120 characters including the line number 
which counts up to four characters. 

Examples : 

.40 erases text and number at line 40 
T45 RECORD inserts RECORD at line 45 

Text before editing: 

0035 PROC 

0040 INIT(I,V,IN) 

0047 XMIT(6,B) 

0060 END 

Editing commands: 

^35 PROC 1 

_^40 INIT(1,IN, 'LABEL' ,2) 

_^47 

Text after editing 

0035 PROC 1 

0040 INIT(1,IN, 'LABEL' ,2) 



0060 END 
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2.3.6 RESEQUENCE 

The RESEQUENCE command renumbers the program lines to adjust for 
additions and deletions. 

The form of the command is: 

.RE [n] [ ,inc] 



where 



is the starting line number. If no 
number is specified, 100 is assumed. 



starting line 



If the comma after the starting number is omitted, the 
starting number and increment number are the same, 
i.e., RE 100 causes a starting number and increment 
of 100. If the command is RE 100, the starting line 
number is 100 and the increment remains unchanged 
unless the Monitor is read back into core; at which 
time the increment returns to 10. 



inc is the increment between line numbers, 
is specified, 10 is assumed. 



If no increment 



If line number exceeds 4095 on a resequence, the error message, LINE # 
TOO LARGE, results. Enter another RESEQUENCE command with smaller 
increments. If this is not done, the text will be only partially 
RESEQUENCEd and duplicate line numbers may result. 

Examples : 



.RE 



Resequences line numbers of program in the edit 
buffer using 100 as starting line number and 10 as 
increment. 



RE 10,5 Resequences line numbers of program in edit buffer 
using 10 as starting line number and 5 as the 
increment. 

RE ,100 Resequences line numbers of program in edit buffer 
using 100 or the last specified line number as the 
starting line and 100 as the increment. 

RE 50, Resequences line numbers of program in edit buffer 
using 50 as the starting number and the increment 
remains unchanged. 
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2.3.7 WRITE 

The WRITE command stores a new or modified source program on the 
specified device so it can later be compiled or FEtched for editing. 

The form of the command is: 

_^WR pronam[,dev] [/Y] 

where 

pronam is the six character name assigned to the program 
to be stored . 

dev is the three character designation of the physical 
device (DT0-DT7, RX0-RX5 or DK0-DK3) where the 
program is to be stored. If no device is 
specified, the system device is assumed. 

/Y is used to bypass the REPLACE? message and YES 

response when a duplicate name would be 

encountered. Normally used in a BATCH mode to 
bypass operator response. 

If the name specified is a duplicate name. Monitor asks 

REPLACE? 

Type Y or YES and the CR key to replace the old file with the new 
file. Type N or any other character and the CR key to leave the old 
file and return to the Monitor. 
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2.4 EDITING EXAMPLE 

.FE ACC08S 

.LI ;LIST PROGRAM TO BE EDITED 



0010 
0020 
0030 
0040 
0050 
0060 
0070 
0080 
0090 
0100 
0110 
0120 
0130 
0140 
0150 
0160 
0170 
0200 
0210 
0220 
0230 
0240 
0250 
0260 
0270 
0280 
0290 



START ;ACC08S - 
THIS PROGRAM UPDATES A MASTER FILE OF STOCK RECORDS, WITH A 
TRANSACTION FILE OF RECEIVALS AND WITHDRAWALS. 
A NEW MASTER FILE AND A REPORT ARE PRODUCED. 



MIPART, 
MICOST, 
MIQTY, 
MIDATE, 

MIWHOL, 



MOPART, 
MOCOST, 
MOQTY, 
MODATE , 



TYPE, 
TPART, 
TQTY, 
TDATE , 



RECORD 

D9 

DIO 

DIO 

D6 

BLOCK, X 

A35 

RECORD 

D9 

DIO 

DIO 

D6 

RECORD 

Al 

D9 

D7 

D6 



MASTI ; MASTER INPUT RECORD 

;UNIT COST 

;DATE OF LAST TRANSACTION (MMDDYY) 

MASTO ;MASTER OUTPUT RECORD 



TRAN ; TRANSACTION FILE 

;TYPE (R=RECEIVAL, W=WITHDRAWAL) 
;PART NUMBER 
; QUANTITY 
;DATE (MMDDYY) 



0500 



.150 
.230 
.290 
.009 
.011 
.022 
.022 



END 



;Editlng 



MIPART, D9 ;PART NUMBER 

MIQTY, DIO ; QUANTITY ON HAND 

8 BLOCK, X ; REDEFINITION 

9 MOWHOL, A3 5 
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.LI 



;LIST EDITED PROGRAM 



0010 
0020 
0030 
0040 
0050 
0060 
0070 
0080 
0090 
0100 
0110 
0120 
0130 
0140 
0160 
0170 
0200 
0210 
0220 
0228 
0229 
0240 
0250 
0260 
0270 
0280 



START ;ACC08S 
THIS PROGRAM UPDATES A MASTER FILE OF STOCK RECORDS, WITH A 
TRANSACTION FILE OF RECEIVALS AND WITHDRAWALS. 
A NEW MASTER FILE AND A REPORT ARE PRODUCED. 



MI PART, 
MICOST, 
MIQTY, 
MI DATE, 

MIWHOL, 

MOPART, 
MOCOST, 
MOQTY, 
MODATE , 

MOWHOL, 

TYPE, 
TPART, 
TQTY, 
TDATE , 



RECORD 

D9 

DIO 

DIO 

D6 

BLOCK, X 

A35 

RECORD 

D9 

DIO 

DIO 

D6 

BLOCK, X 

A35 

RECORD 

Al 

D9 

D7 

D6 



MASTI ;MASTER INPUT RECORD 

;PART NUMBER 

;UNIT COST 

; QUANTITY ON HAND 

;DATE OF LAST TRANSACTION (MMDDYY) 



MASTO ; MASTER OUTPUT RECORD 



; REDEFINITION 

TRAN ; TRANSACTION FILE 
TYPE (R=RECEIVAL, W=WITHDRAWAL) 
PART NUMBER 
QUANTITY 
DATE (MMDDYY) 



0500 END 
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2.5 BATCH EDITING 



As the following example illustrates, editing can be done via a BATCH 
program. 



.ERASE 



LN 5,5/R 



LIST 



"> 



; AUTOMATIC LINE NUMBERS START AT 
;5 AND INCREMENT BY 5. INPUT FROM 
; PAPER TAPE READER. 
;LIST THE FILE READ IN. 



0005 FETCH TEMP 

0010 LIST 

0015 ERASE 4 

0020 ERASE 30,34 

0025 35 PROC 1 

0030 40 INIT(1,IN, 'LABEL' ,2) ) ;BATCH Program 

0035 47 FORMS (6,0) ' 

0040 RE 5,5 

0045 LIST 

0050 WRITE TEMPA 

0055 DELETE FILE/S 



.WRIT 


^E FILE 




.BATCH FILE 




FETCH TEMP 




LIST 






0000 


RECORD 


A 


0004 




,D1 


0005 




,A5 


0010 




,A6 


0015 




,D6 


0020 




,D10 


0025 




,A25 


0030 




,D2 


0031 


RECORD 


B 


0032 




,D2 


0033 




,A1 


0034 




,D2, 70 


0035 


PROC 




0040 




INIT(1,V,IN) 


0045 




XMIT (1,A,E0F) 


0046 




XMIT (6, A) 


0047 




XMIT (6,B) 


0050 


EOF, 


FINI (1) 


0055 




STOP 


0060 




END 



; WRITE BATCH PROGRAM CALLED "FILE" 
;RUN BATCH PROGRAM "FILE" 



; FIRST COMMAND OF BATCH PROGRAM LOADS 

•TEMP FOR EDITING 

; SECOND COMMAND LISTS TEMP 



;TEMP PROGRAM 
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ERASE 


4 


ERASE 


30,34 


35 PROC 1 


40 INIT(1,IN, 'LABEL' ,2) 


47 FORMS (6,0) ; 


RE 5, 


5 ; 


LIST 




0005 


RECORD A 


0010 


,A5 


0015 


,A6 


0020 


,D6 


0025 


,D10 


0030 


,A25 


0035 


PROC 1 


0040 


INIT(1,IN, 'LABEL' ,2) 


0045 


XMIT (1,A,E0F) 


0050 


XMIT (6, A) 


0055 


FORMS (6,0) 


0060 


EOF, FINI (1) 


0065 


STOP 


0070 


END 



THIRD COMMAND ERASES LINE 4. 

FOURTH COMMAND ERASES LINES 30-34 

FIFTH COMMAND INSERTS NEW TEXT 

AT LINE 35. 

SIXTH COMMAND INSERTS NEW TEXT 

AT LINE 40. 

SEVENTH COMMAND INSERTS NEW TEXT 

AT LINE 47. 

EIGHTH COMMAND RESEQUENCES LINE 

NUMBERS STARTING AT 5 AND 

INCREMENTING BY 5. 

NINTH COMMAND LISTS EDITED TEMP. 



WRITE TEMPA 
DELETE FILE/S 



; STORE TEMPA ON SYSTEM DEVICE 
;DELETE SOURCE FILE OF BATCH 
; PROGRAM 
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2.6 ERROR MESSAGES 
Monitor Errors 

Message 
BAD COMPILATION 

BAD DIRECTORY 

BAD LABEL 
DT n? 



ENTER "DATE MM/DD/YY" 
ERROR IN COMMAND 
FILE NOT FOUND 
LINE TOO LONG 
LINE # TOO LARGE 
REPLACE? 

TEXT AREA FULL 
PILLEGAL UNIT 



Explanation 

User tried to SAVE a compiled binary 
that had errors. 

Directory does not look right (for 
example, requesting a directory of a 
data tape) . 

Tape has no label, or its form is 
incorrect. 

The expected tape is not available on a 
DECtape drive. 

For example, if following a MOUNT 
message the operator has specified that 
a file should be written on unit 3, and 
unit 3 is not selected, or is WRITE 
LOCKed, this message is output. 

CTRL commands are not operative at this 
point, i.e., CTRL/C does not work. To 
recover, set switch to ENABLE the unit 
or set the dial selector to the proper 
number. Then type any key to continue. 
On LINCtapes there is no message. 



Typed an unrecognizable date. 
Miscellaneous . 

After, for example, FETCH FILEX. 
Greater than 120 characters. 
Greater than 4095. 

Type 



Duplicate file names, 
replace. 



to 



Greater than 8,150 characters. 

The unit specified is not DK0-DK3, 
RX0-RX5 or DT0-DT7; for example, 

WRITE FILE,XY3 
WRITE FILE, RK9 



!*!MEMORY FAIL'*! 



A hardware error has occurred, 
the program. 



Restart 
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Message 
?N0 FILE TO SAVE 

*N0 INIT DONE 



Explanation 

Nothing in the edit work area when WRITE 
command is issued. 

Program attempted to read or write on a 
device that was not opened by the system 
program. 



Run-Time Error Message 
BAD DIGIT 

*BAD PROGRAM 

*DIBOL FILE NUMBER IN USE 
*DIBOL FILE NUMBER NOT INITED 

END OF FILE 



I/O ERROR ON XX, RETRY? 
(COS 300 only) 



I/O ERROR ON XXN, RETRY? 
(COS 310 only) 



*ILLEGAL DEVICE 



*ILLEGAL SUBSTRING 



ILLEGAL RECORD # 



A character other than +, -, space, or 
the digits 0-9 was encountered in an 
alpha to decimal conversion. 

Attempting to run a binary program which 
contains a compilation error. Check 
compilation listing for error flags. 
Correct flagged errors, and recompile. 

In INIT, the channel number is already 
associated with a device. 



An attempt was made to XMIT, READ, or 
WRITE with a channel number that was not 
associated with a device. 

The last record of an input file has 
been read and the end of file mark 
encountered, but no EOF label was 
specified in the XMIT statement. 



System failed in three attempts to read 
from or write to a disk. XX=DT or DK. 
Type Y if retry is desired; any other 
character if no retry and return to 
Monitor is desired. In either case, 
type only one character. 



Where XX is the device type and N is the 
unit number. Type N for no retry. Any 
other input causes the device handler to 
retry. 

Attempt to WRITE on a file that was not 
INITialized for UPDATE or attempt to 
READ from a file that was not 
INITialized for INPUT or UPDATE. 

A DIBOL PROCedure section statement has 
attempted to access a data field, Fl 
(m,n)-, but m=0 or m>n. 

Record number is 0, past the end of the 
physical unit or the length specified in 
the record header word does not match 
the length of the XMIT block (records in 
data file are all not the same length) . 



2-31 



Message 
LINE TOO LONG 

*N0 BUFFERS LEFT 



NO FILE 



NUMBER TOO LONG 



*PROGRAM TOO BIG 



*PUSHDOWN OVERFLOW 



*RETURN WITHOUT CALL 



♦SUBSCRIPT TOO BIG 



Meaning 

An input line (record) 
block it was read into. 



overflowed the 



Not enough core available for I/O 
buffers. An I/O buffer of some multiple 
of 512 characters is set up for each 
active mass storage file. Another 
possibility: too few files were 
specified in the PROC statement. 



No file specified in RUN statement 
satisfy INIT (SYS) command. 



to 



ZERO DIVISOR 



A decimal field longer than 15 digits 
was used in a calculation. 

Binary program does not fit in available 
core. Reduce program size. 

Either (1) a statement is too complex or 
(2) subroutines are nested to a depth 
greater than 50, or a combination of the 
two . 

The program tried to execute a RETURN, 
but there was no place to go: there was 
no corresponding CALL statement. 

Program attempted to destroy the 
run-time system or itself by using a 
subscript larger ,than that defined in 
the Data Definition section. Note that 
the run-time system does not detect all 
illegal subscripts; only those which 
would cause the user's program or the 
system to be destroyed. 

The program attempted to divide by zero. 



NOTES 

The messages marked with an 
asterisk (*) cannot be checked 
with an ERROR statement. 

AT LINE nnnn is displayed under 
all run-time error messages, 
nnnn is a DIBOL source program 
line number in which the error 
occurred. If COMP/O were 
specified for this program, nnnn 
is meaningless. 
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CHAPTER 3 
SYSGEN 

SYSGEN is a conversational program used to reconfigure the COS-300 and 
COS 310 software systems to handle available hardware, to change the 
logical unit assignments, and to print a table of those assignments 
for reference. 



3.1 COS-300 OPERATING PROCEDURES 
To load SYSGEN type: 

_^RU SYSGEN [, filnam] 
or 

_^RU SYSGEN/x 

where 

filnam is optional and is a file previously created and stored 
with the Editor which contains the table of logical unit 
assignments to be made. 

/x is one of three options used with SYSGEN. 

/C change the hardware handlers in the system. 

/T take new logical unit assignments from terminal. 

/L print table of current logical unit assignments. 

3.2 COS-300 SYSTEM SOFTWARE CONFIGURATION 

As shipped, the COS— 300 software system is set up to handle the 
following hardware configuration on the PDP-8 : 

TC08 with 8 DECtapes (or TD8E for the 8/E) 

RK8E, RK08 or RF08 disks 

Terminal 

LP08 80-column Line Printer 

Card Reader 

High-speed Paper Tape Read and Punch 



3-1 



or 



LINCtape (PDP-12) 

RK8E, RK08 or RF08 disks 

LPOB 80-column Line Printer 

Terminal 

Card Reader 

High-speed Paper Tape Reader and Punch 



on the PDP-12. 



NOTE 

The SYSGEN program cannot be used when 
the COS — 300 Foreground Data Entry 
Program is running. 



NOTE 

No change is necessary if your COS 300 
hardware configuration matches the one 
described here. 

If, however, the system has either a 132 column line printer or an 
Analex line, printer or the system device is to be changed, type the 
command 

_^RU SYSGEN/C 

and the CR key. (Refer to Figure 3-1 for a flow chart of the question 
and answer sequence.) 



RU SYSGEN/C 



WHAT IS NEW 
SYSTEM DEVICE 




ASSUME 80 
COLUMN PRINTER 



SYSTEM IS 

RECONFIGURED 

AND CONTROL 

RETURNS TO 

MONITOR 



Figure 3-1 
SYSGEN Flow Chart 
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For the COS-300 System, SYSGEN displays the following question on the 
terminal : 

DO YOU WANT TO CHANGE THE SYSTEM DEVICE? 

Type NO and the CR key to keep the current system device. SYSGEN 
skips to the question on the line printer. 

Type YES and the CR key to change the system device from DECtape to 
Disk or Disk to DECtape. This is the only way to move the Monitor and 
DIBOL run time system (RSYS) . If the system device is changed, the 
system must be restarted with the bootstrap appropriate to that device 
(see Appendix B or Chapter 9, BOOT). SYSGEN then asks: 

WHAT IS THE NEW SYSTEM DEVICE? 



Type the three character designation of the new system device, DK0-DK3 
or DT0-DT7. 



NOTE 

Since only an RK08, or RK8E, or RF08 
disk may be resident on the sytem, disks 
are commonly addressed as DK0-DK3. An 
RF08 disk must always be addressed as 
DKO. 



DO YOU WANT TO TRANSFER YOUR FILES? 

Answer YES and the CR key to move the rest of the system programs 
(PIP, COMP, etc.) to the new system device. Transfer of the system 
program destroys anything stored on the new system device. Answering 
NO and the CR key will zero the directory of the new device. 

DO YOU HAVE AN ANALEX PRINTER? 



NOTE 

The Analex printer must be configured 
into the system with SYSGEN before it is 
turned on or it will not function 
properly. 

Answer YES and the CR key and SYSGEN skips to the next question. 

IS EVERYTHING CORRECT? 

Answer NO and the CR key and SYSGEN assumes an LP08 or LS8E printer 
and the question 

132 COLUMN PRINTER? 



is displayed. Answer YES and the CR key if there is a 132 column line 
printer. Answer NO and the CR key and SYSGEN assumes an 80 column 
line printer. The next question is; 

IS EVERYTHING CORRECT? 
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Check all answers made to the above questions. Type YES and the CR 
key if the answers are correct. Type NO and CR key to correct any 
errors. SYSGEN repeats the questions starting at the beginning. 

SYSGEN/C does not repeat the logical unit assignment to reflect the 
new area occupied by the system on the disk. Run SYSGEN/T to reassign 
logical units if the system is moved to a disk or the system may be 
destroyed by a data file. 



3.3 COS-310 OPERATING PROCEDURES 
To load SYSGEN type: 

_^RU SYSGEN [, filnam] [/x[y] 

where 

filnam is optional and is a file previously created and stored 
with the Editor which contains the table of logical unit 
assignments to be made. 

/x is one of the following four options used with SYSGEN. 

x= /B takes changed information from the edit buffer. 
(There is no print out) . 

/C change the hardware handlers in the system device. 

/T take new logical unit assignments from terminal. 
(There is no printout). 

/L print table of current logical unit assignments. 

/xy is an additional option from the system. 

where 

X = B or T as described above 

y = L to give printout logical units table 

immediately after first option (which changes 
table) . 

If no file or options are specified SYSGEN takes the information 
stored in the edit buffer as the new logical unit assignments and 
prints them on the line printer. 

Refer to the appropriate section for further explanation of 
reconfiguration and logical unit assignments. 



3.4 COS-310 SYSTEM SOFTWARE CONFIGURATION 

As shipped the COS— 310 software system is set up to handle the 
following hardware configuration on a PDP-8 . 
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RX8E 
VT50 
LA36 



Dual diskette 
terminal 
DECwr iter 



NOTE 

SYSGEN/C should be run immediately upon 
installation of the COS-310 Software or 
upon transfer of system. Failure to do 
so may result in inconsistencies within 
the system. 



To run COS-310 SYSGEN type: 

_^RU SYSGEN/C 
(Refer to Figure 3-2 Flow Chart of question and answer sequence.) 



.RU SYSGEN/C 




WHAT IS NEW 
SYSTEM DEVICE 




^'INTERN AL^s 
-^^^.TEST FOR VT5d> 




ASSUME VT05 
OR LA30 TERMINAL 



ASSUME LP08 OR 
LS8E PRINTER 



HOW MANY LINES 
PER PAGE? 




ASSUME 

80 COLUMN 

PRINTER 



SYSTEM IS 

RECONFIGURED AND 

CONTROL RETURNS TO 

THE MONITOR 



Figure 3-2 
Question and Answer Sequence 
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For the COS-310 system, SYSGEN displays the following questions on the 
terminal : 

DO YOU WANT TO CHANGE THE SYSTEM DEVICE? 



Type NO and the OR key to keep the current system device. SYSGEN 
skips to the questions concerning the line printer. 

Type YES and the CR key to either change the system device from 

DECtape to Disk (i.e., diskette) or change the system device from Disk 

to DECtape. This is the only way to move the Monitor and DIBOL run 

time system (RSYS) . If the system device is changed, the system must 

be restarted with the bootstrap appropriate to that device (see 
Appendix B or Chapter 9, BOOT). SYSGEN then asks: 

WHAT IS THE NEW SYSTEM DEVICE? 



Type the three character designation of the new system device, 
DK0-DK3, DT0-DT7, or RX0-RX5. 

DO YOU WANT TO TRANSFER YOUR FILES? 



Answer YES and the CR key to move the rest of the system programs 
(PIP, COMP, etc.) to the new system device. Transfer of the system 
programs destroys anything stored on the new system device. Answering 
NO and the CR key will zero the directory of the new device. 

If a VT50 is not present, the system then asks: 

DO YOU HAVE AN LA36 AS TERM IN AL? 

Answer YES and the CR key to have this system provide for LA36. 
Answer NO and the system answers an LA30. 

DO YOU HAVE AN LA36 AS A LINE PRINTER? 

Answer YES and CR key to have system provide for LA36. The next 
question: 

HOW MANY LINES PER PAGE? 



If the answer to the previous question was No, the above printout is 
bypassed and the system answers in LP08 or LS8E printer and then asks: 

132 COLUMN PRINTER? 

is displayed. Answer YES and the CR key if there is a 132 column line 
printer. Answer NO and the CR key and SYSGEN assumes an 80 column 
line printer. The next question is: 

IS EVERYTHING CORRECT? 



Check all answers made to the above questions. Type YES and the CR 
key if the answers are correct. Type NO and the CR key to correct any 
errors. SYSGEN repeats the questions starting at the beginning. 

SYSGEN/C does not reset the logical unit assignments to reflect the 
new area occupied by the system on a disk. Run SYSGEN/T to reassign 
logical units if the system is moved to a disk or the system may be 
destroyed by a data file. 
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If transferring from a disk containing more than 46 segments to a 
DECtape, SYSGEN/C will not permit the transfer due to insufficient 
room on the DECtape. This is manifested by the DECtape rocking back 
and forth at the end of tape. Reboot the disk system and run SYSGEN/C 
(without transferring files) onto two DECtapes. Then run PIP, option 
E, and put source files on one DECtape and binary files on the other. 

NOTE 

LINES-PER-PAGE may be controlled by use 
of the program LINCHG (see chapter 16) . 



3.5 LOGICAL UNIT ASSIGNMENT FOR THE COS SYSTEM 

The assignment of logical units to physical mass storage devices 
provides greater utilization of the storage area and a certain device 
independence. The device independence is available at run time; any 
mass storage device can be specified for I/O and the program executes 
using the specified devices. 

The COS system handles storage using the following hierarchy 

2 characters = 1 word 
256 words = 1 block 
16 blocks = 1 segment 

Refer to sections 3.4.1 and 3.4.2 for background on logical unit 
assignment before proceeding. Devices not currently part of the 
system configuration can not be assigned a logical unit. 



3.5.1 How Logical Units are Assigned by SYSGEN 

On the system device, disk or DECtape, logical units are assigned from 
the end working toward the beginning of the device, but in reverse 
order. For example, a disk with 3 logical units would be arranged, 
starting from the beginning as: Directory; Monitor; System 
programs; User programs; Unused space; Logical Unit 1; Logical 
Unit 2; Logical Unit 3. If more logical units are assigned, then 
logical unit 1, etc. will be moved closer to the beginning of the 
device . 

On non-system devices, disk or DECtape, logicat units are assigned in 
sequential order starting at the beginning of the disk or DECtape. 
For example, a disk with 4 logical units might be arranged: Logical 
Unit 1; Logical Unit 2; Logical Unit 3; Logical Unit 4; Unused 
space. There is a total of 406 segments available on an RK05 disk and 
46 segments on DECtape. 
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For example, with the following logical unit assignments: 
Logical Unit Device Size (S egme nts) 



1 


DKO 


40 


2 


DKO 


20 


3 


DKO 


10 


4 


DKl 


60 


5 


DKl 


40 


6 


DKl 


20 



would cause an RK05 system disk (DKO) and non-system disk (DKl) to be 
organized as follows: 



System Disk 



Non-system Disk 



DKJ2f 



LU3 



LU2 



LUl 



UNUSED 
SPACE 



USER 
PROGRAM 
(SOURCES & 
BINARIES) 



SYSTEM 
PROGRAMS 



MONITOR 



DIRECTORY 




KD 

m 



DKl 



UNUSED 
SPACE 



LU6 



LU5 



LU4 



w 

EH 

H 

w 

W 

KD 
00 
CM 



EH 

o S 

O 
W 
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3.5.2 COS-300 Logical Unit Assignment 

To make logical unit assignments from the terminal, type 

_^RU SYSGEN/T 

and the CR key. Type the 3 character device code, a comma and length 
in segments in the order they are to be assigned to the logical units. 
The comma and length in segments can be omitted and SYSGEN assigns all 
the space left on the specified device to the next logical unit 
(DECtape = 46 segments; RK08 Disk, 203, segments; RK8E, 406 
segments; RP08 disk, 64 segments times the number of platters). The 
first device entered is automatically assigned to logical unit 1, the 
second to unit 2, etc. For example, 

_^RU SYSGEN/T 

DK0,20 

DK0,20 

DK0,20 

DK1,100 

DK1,100 

DK1,100 

DKl 

END 

The result of the above SYSGEN will be to assign logical units 1, 2, 
and 3 to RX8E drive 0; and logical units 4, 5, 6, and 7 to drive 1. 
Logical unit 7 will be 106 segments long (406-300) . If an error is 
made when typing the table, type CTRL/C then retype the RUN SYSGEN/T 
command and start the table over again. When all desired logical 
units have been specified, type CTRL/Z. 

Logical assignment can also be accomplished by typing the table into 
the Edit Buffer. This method allows error correction with the Editor 
commands. If the following logical unit assignments are typed to the 
Edit Buffer, 

0010 DTI 

0015 DT2 

0020 DT3 

0025 DT4 

0030 DT5 

0040 DT6 

0050 DT7 

0060 DK0,46 

0070 DK0,46 
END 

and the command 

_^RUN SYSGEN 

and the CR key is typed, SYSGEN makes the logical unit assignments 
according to the table in the edit buffer. Logical units 1-7 are 
DECtape units 1-7 with a length of 46 segments and logical units 8 and 
9 are portions of RK08 disk (DKO) , each 46 segments long. A listing 
of the SYSGEN assignments is always printed on the line printer upon 
successful completion of the SYSGEN program. 
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The table created with the Monitor can also be stored with the WRITE 
command for future use. Use the command 



previously created file. For 



_^RU SYSGEN, file 

to assign the logical units with 
example 

^RU SYSGEN,TABL1 

where TABLl contains 

0010 DTI 

0020 DT2 

0030 DT3 

0040 DT4 

0050 DT5 

0060 DT6 

0070 DT7 

0080 DK1,202 

0090 DK2,101 

0100 DK2,101 
END 

Occasionally, it is desirable to check the logical device assignment 
table. To obtain a printout of the table, type 

_.RUN SYSGEN/L 

and the SYSGEN table of the current logical device assignments is 
printed on the line printer. For example: 



LOGICAL 


DEVICE 


LENGTH 


UNIT # 


NAME 


(SEGMENTS) 


01 


DTI 


0046 


02 


DT2 


0046 


03 


DT3 


0046 


04 


DT4 


0046 


05 


DT5 


0046 


06 


DT6 


0046 


07 


-UNDEFINED- 




08 


-UNDEFINED- 




09 


-UNDEFINED- 




10 


-UNDEFINED- 




11 


-UNDEFINED- 




12 


-UNDEFINED- 




13 


-UNDEFINED- 




14 


-UNDEFINED- 




15 


-UNDEFINED- 





This table should be made available for reference by all persons using 
the COS system. 
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3.5.3 COS-310 Logical Unit Assignment 

For use with the RX8E diskette (COS 310 only) 

_^RU SYSGEN/T 

RX1,41 
RX2,41 
RX3,41 
RX4,41 
END 

/T option takes input from the terminal, but, produces no output. 

_^RU SYSGEN (or . RU SYSGEN/B) 

RX1,41 
RX2,41 
RX3,41 
RX4,41 
END 

/B (or the absence of a switch) option takes input from Edit Buffer, 
and produces no output. 

After /T or /B option has been run the following may be performed: 

.RU SYSGEN/L 



LOGICAL 


DEVICE 


LENGTH 


UNIT # 


NAME 


(SEGMENTS) 


01 


RXl 


41 


02 


RX2 


41 


03 


RX3 


41 


04 


RX4 


41 


05 


-UNDEFINED- 




06 


-UNDEFINED- 




07 


-UNDEFINED- 




08 


-UNDEFINED- 




09 


-UNDEFINED- 




10 


-UNDEFINED- 




11 


-UNDEFINED- 




12 


-UNDEFINED- 




13 


-UNDEFINED- 




14 


-UNDEFINED- 




15 


-UNDEFINED- 





/L puts out the contents of logical units table. It may be combined 
with /T, /B, or filename option of SYSGEN to perform both functions 
with one command. The /L option must always follow the other option. 

_^RU SYSGEN, filename/L 

RXl, 41 
RX2,41 
RX3,41 
RX4,41 
END 

The following is. put out on the line printer terminal. 
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LOGICAL 


DEVICE 


LENGTH 


UN 11 


' # 


NAME 


(SEGMENTS) 


01 




RXl 


41 


02 




RX2 


41 


03 




RX3 


41 


04 




RX4 


41 


05 




-UNDEFINED- 




06 




-UNDEFINED- 




07 




-UNDEFINED- 




08 




-UNDEFINED- 




09 




-UNDEFINED- 




10 




-UNDEFINED- 




11 




-UNDEFINED- 




12 




-UNDEFINED- 




13 




-UNDEFINED- 




14 




-UNDEFINED- 




15 




-UNDEFINED- 




.RU 


SYSGEN/TL 






RXl, 


41 






RX2, 


41 







END 



LOGICAL 


DEVICE 


UNIT# 


NAME 


01 


RXl 


02 


RX2 


03 


-UNDEFINxiD 


04 


-UNDEFINED 


05 


-UNDEFINED' 


06 


-UNDEFINED 


07 


-UNDEFINED 


08 


-UNDEFINED' 


09 


-UNDEFINED' 


10 


-UNDEFINED 


11 


-UNDEFINED 


12 


-UNDEFINED' 


13 


-UNDEFINED' 


14 


-UNDEFINED 


15 


-UNDEFINED 



LENGTH 
(SEGMENTS) 

41 
41 



Physical mass storage devices are limited by the hardware; but can be 
subdivided into logical units. Logical units are composed of 
segments; the number of segments per unit is up to the user. COS 
allows one file per logical unit. 



NOTE 

The COS-300 system is shipped with 
logical units 1-7 assigned to DECtape 
units 1-7 and each unit is originally 
assigned 46 segments. Logical units 
8-15 are left unassigned. The user may 
assign and reassign any of the 1-15 
logical units as desired. Logical unit 
is always the system device and cannot 
be reassigned. 
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The COS— 310 system is shipped with 
logical units 1-7 assigned to RX8E units 
1-7. Each unit is initially assigned 41 
segments. 



It is advisable to create logical units of varied sizes since file 
lengths vary and a short file in a long logical unit wastes storage. 



MEDIA PHYSICAL SIZES IN SEGMENTS 



device 

RKOl 

RK05 

RF08 

DECTAPE 

RXOl 



segments 

202 

406 

64/PLATTER 

46 

41 



3.5.4 DECtape Users 

Although more than one logical unit can be assigned to a physical 
DECtape unit, it is advisable to assign one logical unit per DECtape. 
The use of two or more units per DECtape may cause excessive tape 
spinning; for example, if reading from one unit and writing to 
another located on the same physical device. In the same example, if 
the output unit filled and had to be replaced, it might be necessary 
to dismount the tape, thereby also removing the needed input unit. 



A DECtape is 46 segments long so the logical unit assigned 
physical DECtape unit should be assigned 46 segments. 



to the 



3.5.5 Disk Users 



The easiest method of assigning logical units to a disk is to think in 
terms of a sequence of DECtape. 

A DECtape is 46 segments long. 



1 46 

Dectape 
A RF08 platter is 64 segments; and a second platter adds another 64 
segments. 



1 




64 


65 




128 


RF08 platter 


RF08 platter 



The RK8E disk cartridges are each 406 segments and there can be up to 
four drives (0-3) . 
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DKO 



DKl 



DK2 



DK3 



The RK8E disk cartridges are each 406 
four drives (0-3). If the disk is 
200 blocks (or 12 segments) must be 
operating system and system progr 
left on the system device to store so 
and binary programs. The remainde 
purpose. However, fifty segments 
approximately 342 segments (140 
assignments. Logical units on the s 
assigned at the end of that device ( 
devices). For example: 



406 



406 



406 



406 



segments and ther 

the system device 

left unassigned 

am. In addition, 

urce programs, co 

r of drive may b 

are suggested 

for RK08) for 

ystem device are 

the opposite is tr 



e can be up to 

, approximately 

to hold the 

space should be 

ntrol programs 

e used for this 

which leaves 

logical unit 

automatically 

ue of all other 



DKO (assuming RK08) 



1 12 62 


40 


SYSTEM 
PROGRAMS 


Space for user 
source and 
binary files 





Logical Unit 
which leaves approximately 342 segments for logical unit assignments. 
A sample assignment might be 

DKO (assuming RK8E) 



406 



SYSTEM 


User source 
& Binary 
Files 


46 

SEGMENTS 


46 
SEGMENTS 


46 
SEGMENTS 



logical unit 




Logical 
unit 8 



Logical 
unit 9 



Logical 
unit 10 



The area between logical unit 8 and the system can be left unassigned 
for system program overflow, if desired. On devices other than the 
system device SYSGEN starts assigning logical units at the beginning 
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of the device. 

SYSGEN Error Messages are located in Appendix J 
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CHAPTER 4 
COMP 



The Compiler takes a DIBOL language program and converts it to a 
binary language program which can be executed by the run time system 
(RSYS) . In the process of creating the executable program, the 
Compiler outputs a listing of the source program and a storage map of 
the records and fields which are used by the program. 

The Compiler sets aside storage space for the constants, variables and 
statements used by the program. Refer to Appendix C for an 
explanation of the amount of code generated by the Compiler. 

Be sure to document any new programs completely and accurately and to 
prepare a set of instructions for execution including any necessary 
changes to logical device assignments, names of files, and where each 
is to be mounted, the format of any entries to be made to the program, 
restart procedures and any other essential information. 



4.1 OPERATING PROCEDURES 

The command to run the Compiler has the form: 
.RU COMP[, filel, . . . ,file7] [/xx] 

and the CR key. (Be sure the line printer is turned on.) 

Where 

f ilel, . . . ,f ile7 are files on the system device to be compiled into 

one binary. These files contain segments of one 
program, not several programs. If no files are 
specified, the program in the edit scratch area is 
compiled . 

/xx is one or a combination of the following options: 

/N suppresses the output of the Compiler 
listing and storage maps. 

/G compiles the source program and if no errors 
are detected, executes the binary program 
with no user intervention. /N is implied. 
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The message LOADING is displayed when 
compiling is successfully completed. The 
program must have an END statement to be 
compiled and executed with the /G option, if 
INIT SYS is used in the program. 

/1-7 specifies a physical unit (DECtape only) for 
temporary storage during compilation. The 
unit specified should contain a scratch 
tape. File is recopied on the system device 
when compilation is complete. Use of 
temporary storage units minimize tape motion 
during compilation. 

/T enables the TRACE function and implies the 
/G option. For example, 

RUN C0MP/T2 

/D performs an implied /G option and then 
chains to the DDT (DIBOL Debugging 
Technique) mode which is explained in 
Appendix H. 

/O compiles the source program in less than the 
amount of memory space required by the other 
options, at the expense of eliminating the 
TRACE feature (if stated in the source 
program) and accurate error reporting. 
Execution speed of the compiled program is 
increased by as much as 20%. This option 
can be combined with either the /N, /G, /D, 
/T, or /1-7 option. 

Use the SAVE command to store the binary program prepared by the 
Compiler . 

To calculate how much memory space is saved by using the /O option, 
the following rules apply: 

1. Saves 1 location for each executable statement. 

2. Saves 1 additional location for each label. 

3. Costs 1 location for each ON ERROR statement. (However, ON 
ERROR statements are executable.) 

Since the TRACE statement in a program compiled with the /O option has 
no useful effect, and since any run-time error reported in such a 
program will be reported to have occurred in the PROC statement, it is 
suggested that the /O option only be used on those programs which have 
been thoroughly debugged. 

Unless the /N or /G option is specified in the RUN command, the 
Compiler produces a listing of the source program (Figure 4-1) and a 
storage map (Figure 4-2) on the line printer or the device specified 
in the START, PROC or END statements. Most errors detected by the 
Compiler are indicated by underscoring the number of the line where 
the error exists and inserting a caret ( ) pointing in most cases to 
the error. Other errors are listed in the symbol map. These errors 
must be corrected before an attempt is made to execute the program. 
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The number of errors detected by the compiler is displayed on the 
terminal as 

nn ERRORS 
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COS DIBOL 


01- 


.MAR-73 


TMUR 






DATA PI VISION 


fe'0t0 






staRT 


; s 


fc)k322 










65 6330 






t^tCQRD 


PRINT 


(9040 


A, 




A15 




ei|250 


s, 




A15 




^060 










tJfe)70 






f?t.C0HD 




008^ 


X| 




015 




»639fe) 


SQRTX, 


015 




e)100 


TEMPX, 


D15 




011^ 


^'« 




D3,0(n 




0X2fe5 











COMPIUATION LISTING 
SQUARE ROOT S 



Vl2f2B PAGE 01 
U B R U T I N E 



cjUa«e root subroutine 



Figure 4-1 

Compiler Listing 

(sheet 1 of 2) 
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COS OIBOL 01'^MAR-73 THyR 
PROCEDURE DIVISION 



COMPILATION LISTING 



V12I28 PAGE ^2 



P5130 


PHOC 1 


014fcJ 




0X50 




0160 


LOOPi 


i(5170 




feJlSkJ 




0190 




0200 




0210 




0220 




0230 




0240 




0250 


SQRT, 


0260 


SQLOOP, 


0270 




0280 




0290 




0300 


END 



INIT(1,LPT) 

X = \'«1030000 

CALL SORT 

AsN 

S = SQRTX, 'XXXjXXX' 

I NCR N 

XMIKl, PRINT) 

IF (A,L£:,99) GOTO LOnp 

STOP 

TEMpXsX/? {TRIAL VALUE 

SQRTX={TE^PX+(X/TLMpX) )/2 {NEWTON'S METHOD 
IF(SQRTX-TEMPX ,EQ, 0) RETURN 
TLMpXsSQRTX 
'iOTO SQLOOP 



Figure 4-1 

Compiler Listing 

(sheet 2 of 2) 
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COS DJBOl, 01-MAR-73 THUR 
# NAME TYPE 



STORAGE MAP LISTING 
DIM SIZE ORIGIN 



VX2I28 PACE 03 



000X 


PRINT 


RECORD 


01 


32 


20000 


0002 


A 


ALPHA 


01 


15 


20002 


0003 


S 


ALPMA 


01 


15 


20021 


0004 


X 


DECMAL 


01 


15 


20042 


0005 


SQRTX 


DECMAL 


01 


15 


20061 


0006 


TEMPX 


DECMAL 


01 


15 


20100 


0007 


N 


DECMAL 


01 


03 


20117 


00X0 


..1 


DECMAL 


01 


01 


20122 


00J1 


LOOP 


LABEL 


00 


01 


10071 


02142 


,,1000 


DECMAL 


01 


07 


20123 


0013 


SORT 


LABEL 


00 


01 


10132 


00X4 


1 t XXX 1 


ALPMA 


01 


07 


20132 


00X£> 


..vv 


DECMAL 


01 


02 


20141 


00X6 


«.2 


DECMAL 


01 


01 


20143 


00X7 


SOLOOP 


LABEL 


00 


01 


10141 


0020 


»,0 


DECMAL 


01 


01 


20144 



00X6 SYMBOLS 

Np ERRORS detected; 08 K CORE REQUIRED C3940 FREE LQCS » 14 8gFFERS3 



Figure 4-2 
Storage Map Listing 
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The storage map lists the names of all the records, fields, and labels 
as they were processed by the Compiler. The information is arranged 
in six columns as follows: 



# this column contains the internal number of the symbol named 
in column 2 and may be ignored. 

NAME Column 2 gives the name of any symbol (field name, record 
name, program label) or constant used in the compiled 
program. Constants are decimal constants or alpha 
characters which appear in the PROC section of the source 
program. Only the first six characters of a symbol name are 
used; any characters after the sixth are ignored. Only the 
first four characters of a constant are used and each 
constant is preceded by two periods (..) to distinguish it 
from a symbol. Constants with four characters or less 
appear only once on the symbol map even though they may 
occur more than once in the program. Constants with more 
than four characters are listed each time they occur in the 
program. Record literals begin with a "..". 

TYPE Column 3 states the symbol type. The types are: 



ALPHA 



DECMAL 



Symbol is an alpha field name or an alpha constant 
(character string). 



Symbol is a decimal field name 
constant. 



or decimal 



DIM 



SIZE 



ORIGIN 



RECORD Symbol is a record name or record literal. 
LABEL Symbol is a program label. 

REDEF Symbol is multiply defined (redefined) . All 
attempts at definition after the first are flagged 
as errors in the source listing. 

UNDEF*** Symbol is a label referenced by the program but 
not defined. For example, GO TO TAGl in a program 
where TAGl does not appear as a label. 

This error is output to the line printer even 
though the /N option is in effect. The line 
number displayed is the line where the symbol is 
first used. 

Column 4 contains the array dimension (number of fields) of 
the alpha or decimal symbols. The column is meaningless for 
other types of symbols. 

Column 5 lists the size of the symbol in characters. The 
size of a RECORD symbol is the number of the characters of 
all its symbols plus 2. 

Column 6 gives the 15-bit (octal) byte address where the 
symbol appears in core and for most users should be ignored. 
Octal addresses are shown for labels. 



The number of symbols used, number of errors detected, core required 
and free locations are listed at the bottom of the symbol map. 
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Maximum number of symbols allowed in an 8K system is 365; in 12K or 
larger systems, 511. 

4.2 CONDITIONAL COMPILATION PROCEDURE 

The Conditional Compilation Procedure (CCP) is a feature which permits 
the DIBOL programmer to include statements in a source program which 
will be compiled by the compiler only if the programmer elects for 
those statements to be compiled. 

Statements included in a program for conditional compilation are 
enclosed with angle brackets as in the following example. 

RECORD A 
Bl, D5 
CI, A4 
PROMPT, Dl 

RECORD N 
NAME, A6 

PROC 
<PROMPT 

XMIT(8,"ENTER NAME:") 
> 

XMIT(7,N) 

STOP 

END 

Notice that the left angle bracket is followed by a control variable, 
in this case PROMPT. Until the control variable is turned "on" 
somewhere in the program before the left angled bracket is encountered 
by the compiler, those statements between the angled brackets will be 
ignored. Notice too, that the right angled brackets appears on a line 
by itself. The command to turn on a control variable is as follows: 

=control variable 

The example above shows a program that requires the operator to type 
in a name on the keyboard. If the program is recompiled with the 
control variable PROMPT on, it produces a DIBOL program which first 
displays a message to the operator. 

RECORD A 
Bl, 05 
CI, A4 
PROMPT, Dl 

RECORD N 
NAME, A6 

PROC 
=PROMPT ;TURN ON PROMPT 

< PROMPT 

XMIT(8,"ENTER NAME:") 
> 

XMIT(7,N) 

STOP 

END 

Conditional compilation can also be used, for example, to 
conditionalize debugging statements into a source file. Once the 
program has been tested, the control variable can be shut off by 
deleting the command to turn it on, effectively removing the debugging 
routines from the source. 
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CCP can also allow you to combine several similar (but not identical) 
source programs into one source. 

If the control variable used in a CCP statement is undefined, the 
compiler will automatically set aside space for it. This, however, is 
wasteful of space and it is to the programmer's advantage to use, for 
CCP symbols, symbols that are already being used for some other 
purpose . 

The CCP value of a symbol (on or off) is independent of the symbol's 
ordinary DIBOL value. 

If a CCP variable is used in the middle of a record definition (in the 
record section of a DIBOL program) it must be a variable that has 
previously been defined, because if not, the compiler will allocate 
space for the variable in the middle of your record (where not 
desired) . 

CCP sections may be nested to any depth. Any sections inside a CCP 
section that is off will be completely ignored by the compiler. This 
includes other CCP statements. To indicate that certain statements 
are being ignored (conditional ized out), the compiler listing will not 
print the line number for that statement. There must be a matching > 
for each < used. If this condition is not met, the compiler generates 
a CCP ERROR message. This error is fatal if angled brackets do not 
match by the end of the program. 



4.3 ERROR MESSAGES 

Most Compiler error messages are printed on the source listing 
directly after the line in which the error occurs. A caret ( ) in the 
error message points to the approximate location of the error. Other 
errors are listed in the symbol map. 

The Compiler error messages are: 

Message Explanation 



BAD ALPHA VALUE Initial value in an alpha data 

specification statement did not begin or 
end with a single quotation mark. 

BAD DECIMAL VALUE The initial value for a decimal data 

specification was incorrectly formed. 

BAD PROC # The number in a PROC statement was not a 

digit from to 7. 

BAD RELATIONAL An illegal relational occurs in an IF 

statement. For example, a .GX. instead 
of a .GT. 
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Message 
CCP ERROR 

COMMA MISSING 

DATA INITIALIZATION MISSING 

EXPECTED LABEL IS MISSING 
EXPRESSION NOT ALLOWED 

EXTRA CHARS AT STMNT END 
FIELD TOO LARGE OR 

ILLEGAL OPERATOR 
ILLEGAL STMNT 

INITIAL VALUE WRONG SIZE 
LABEL NOT ALLOWED 

MISSING CLOSE PAREN 
MISSING OPEN PAREN 
MISSING OPERAND 

MISSING OR BAD DEVICE 



Explanation 

Matching angled bracket (< 
missing . 



or 



» 



No comma appeared where one was 
expected . 

No data initialization followed a comma 
in a data specification statement. 

A required label is missing. 

A complex expression or bad character 
occurs to the left of an = or where only 
a variable is allowed. 

Extra characters occur at the end of a 
legal statement. 

In a data description statement, the 
dimension was or more than 3 digits 
long, or the field size was or larger 
than 511. 

A bad character was encountered in an 
expression where an operator would be 
expected . 

The statement was not a data 

manipulation statement (it had no =) nor 

did it start with a recognizable 
keyword . 

The initial value in a data 
specification statement had a length 
different from the field size specified. 

A symbol in an expression was not of 
type alpha or decimal, or a record or a 
symbol which had been redefined was 
used . 

No close parenthesis occurred where one 
was expected. 

No open parenthesis occurred where one 
was expected. 

A binary operator occurs in an 
expression with no operand following it; 
or no expression at all occurs where one 
is expected. 

The device in an INIT statement was 
missing or started with an illegal 
character . 
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Message 
MISSING QUOTE 



MISSING RELATIONAL 



NAME PREVIOUSLY DEFINED 



NOT A OR D 



NOT LABEL 



PROGRAM TOO BIG 



RECORD TOO BIG 



STMNT TOO COMPLEX 



SUBSCRIPT ERROR 

SUBSCRIPT NOT DECIMAL 
TOO MANY SYMBOLS! 



TOO MUCH DATA 



UNDEFINED NAME 



WRONG DATA TYPE 



Meaning 

The statement contained an odd number of 
quotes ( ' ) . 

No relational appeared in an IF 
statement. 

The name used was previously defined and 
this statement tries to redefine it. 

A character other than A or D occurred 
in a data specification statement where 
A or D was expected. 

A symbol which was not a 'label' 
occurred where a label was required. 

Binary output too big for the binary 
scratch area. Remedy: Run PIP with /n 
option, (refer to Chapter 5). 

A named record exceeded 510 characters 
in size. 

The statement generated too much code 
and overflowed the Compiler's code 
buffer , or it had too much nesting and 
overflowed the Compiler's push-down 
stack. Remedy: break up the statement 
into smaller parts. 

No comma or close parenthesis occurs 
after a subscript. 

The type of a subscript was not decimal. 

A fatal error message. Only 365 symbols 
allowed in symbol table in 8K system, 
and only 511 symbols allowed in larger 
systems. The compiler stops compiling; 
no storage map can be produced. 

Program's Data division exceeds 32K 
bytes. 

A name is used which was never defined 
in the data section. 

Mixed modes occurred in an expression; 
or an argument which was supposed to be 
decimal was not or one of the three 
arguments in a data manipulation 
statement was of the wrong type. 
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CHAPTER 5 
PIP 



PIP (Peripheral Interchange Program) handles file transfers between 
two logical devices, i.e., moves data, source and binary files, and 
system programs between two file-oriented devices; copies the 
contents of one device to another, and consolidates files to remove 
free blocks. PIP can also be used to allocate more space to the 
binary scratch area. 



5.1 OPERATING PROCEDURES 
Type the Monitor command: 
_^RU PIP[/n] 

and the CR key to load PIP. /n is optional and is a number 0-9 which 
indicates the number of segments to allocate to the binary scratch 
area. The /n switch is used in conjunction with the E option. Refer 
to section 5.1.4 for further information. 

PIP responds to the RUN command with: 

PIP 5.05 (or current version number) 
OPT- 

requesting the type of transfer and I/O devices. Answer with one of 
the options, B, C, D, E, S, V, X, described on the following pages. 
After the option is specified, PIP displays the IN and OUT questions 
requesting the input and output files. If an incorrect character is 
entered when responding to the OPT, IN or OUT questions, type CTRL/U 
and the correct response. Type CTRL/C to return to the Monitor. 

NOTE 

When PIP is used under a COS-310 system 
PIP will accept either "RX" or "DT" as a 
legal mnemonic, depending on the type of 
device on the system. 
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OPT-B 

5.1.1 Transfer Binary File 

Type B to move a binary program between two file-oriented devices. 

Answer IN with the name of the binary program to be transferred and, 
optionally, a comma, and the input device, DT0-DT7, DK0-DK3. If no 
device is specified, the system device is assumed. 

Answer OUT with the name to be assigned to the output file, and, 
optionally, a comma, and the output device, DT0-DT7, DK0-DK3. If no 
device is specified, the system device is assumed. 

If an attempt is made to transfer to or from a non-file-oriented 
device, the IN or OUT message is repeated. 



Example: 



OPT- B 

IN- TEST, DTI 

OUT- TEST,DK1 

OPT- (CTRL/C typed here) 
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OPT-C 



5.1.2 Copy Device 



Type; C in reply to OPT- to copy the contents of an entire device onto 
another similar device, i.e., disk to disk or DECtape to DECtape. 

Answer IN with the three-character physical device, DT0-DT7, or 
DK0-DK3. 

Answer IN with the three-character physical device, DT0-DT7, or 
DK0-DK3. 

Answer OUT with one of the physical devices as explained for IN. 

Example : 

OPT- C 

IN- DTO 

OUT- DT7 

OPT- (X or CTRL/C typed here) 



NOTE 

Do not use this option to copy 
diskettes. A new program, RXU, is 
available for this purpose. (See 
Appendix M for details) . 

NOTE 

PIP option C cannot be used when the COS 
300 Foreground Data Entry Program is 
running . 



5-3 



OPT-D 



5.1.3 Transfer Data Files 

Type D to move data files between the devices specified after IN and 
OUT. Answer IN with a label (up to six characters, first character 
must be alphanumeric), an optional logical unit number (1-15) preceded 
by a slash or comma, or a device switch: 

/R for paper tape reader (COS 300 only) 

/C for card reader (COS 300 only) 

/K for keyboard 

/F BCD paper tape in high speed reader (COS 300 only) 

If /R is specified as the input device, records stored are variable 
length. If /C, the record produced is the same size as the card even 
if a smaller number of columns are punched. 

If a label is specified without a logical unit number or if both are 
specified and a data file of another name is found, PIP asks 

MOUNT xxxxxx #01 FOR INPUT: 



answer with the appropriate logical unit number (1-15). Answer OUT 
with a label, number or device as described for IN. Output devices 
are : 

/L line printer 

/P paper tape punch (COS 300 only) 

/T terminal 

If a label is specified without a default unit specification, the 
message 

MOUNT xxxxxx #01 FOR OUTPUT: 

is displayed. Answer with the appropriate logical unit number (1-15). 
If a file with a different name already exists. Monitor asks 

REPLACE xxxxxx#nn? 

Type Y and the CR key to destroy old file and replace with new. Type 
N and the CR key to return to the OPT- question. If output device 
specified is a logical unit (1-15) and the unit is filled, an error 
message is produced. 

When at the end of the input file or card deck, PIP asks 

MORE? 

Answer with the CR key if there is no more input, or specify another 
label, logical unit or device. 
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Examples: 



NOTE 

PIP transfers data in alphanumeric mode 
only. A negative number is treated as 
the letter which has the equivalent 
code. (Refer to Appendix A, COS 
Character Codes.) 



Explanation 



OPT- 


D 










IN- 


EMPNAM 








Dump EMPNAM 


MOUNT 


EMPNAM 


#01 


FOR 


INPUT: 


file on logical 


1 










unit 1 on the 


OUT- 


/I 








line pr inter . 


MORE? 


N 








CTRL/C is typed to 


OPT- 










^eturn to the 


— 










Monitor . 


OPT- 


D 










IN- 


HRPAY,2 






Combines 2 


OUT- 


PAYFIL/1 






data files into 


MORE? 


Y 








one output 


IN- 


SALPAY, 


,3 






file. 


MORE? 


N 








CTRL/C is typed 


OPT- 










to return to the 


— 










Monitor . 


OPT- 


D 








Input from 


IN- 


/c 








card reader which 


OUT- 


LISTl 








creates a 


MOUNT 


LISTl 


#01 


FOR 


OUTPUT: 


multi-unit 


10 










file. 


MORE? 


Y 










IN- 


/c 










MOUNT 


LISTl 


#02 


FOR 


OUTPUT: 


Logical unit 10 


11 










is full. 


MORE? 


N 








CTRL/C is typed 


OPT- 










to return to the 



Monitor . 
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OPT-E 



5.1.4 Eliminate Spaces in Directory 

Type E to consolidate the free blocks of the file on the input device, 
and store the consolidated files on the output device. In addition, 
it is possible to eliminate one or two of the types of files (source, 
binary, and system) during the consolidation. These free blocks are 
shown in the file directory and occur when a file is deleted from the 
directory. The Monitor is not copied. 

Answer IN with DT0-DT7, or DK0-DK3 and the CR key. 

Answer OUT with DT0-DT7, or DK0-DK3 and the CR key. 

When consolidating the system device onto itself, PIP eliminates the 
free space as shown below: 

SYS 



before 



files 


f 
r 
e 
e 


files 


f 
r 
e 
e 


files 


logical 
unit 
8 


logical 
unit 
9 


logical 
unit 
10 



after 



SYS 



files 


free 


logical 
unit 
8 


logical 
unit 
9 


logical 
unit 
10 



However when consolidating a device (other than the system device) 
onto another device PIP eliminates the free space as follows 

DKO 



before 





f 




f 








files 


r 


files 


r 


logical 


logical 


logical 




e 




e 


unit 


unit 


unit 




e 




e 


8 


9 


10 



after 



DKl 



files 


free 



Example : 



OPT- 

IN- 

OUT- 



E 

DTO 

DTO 



The message 

TYPES OF FILES TO BE SKIPPED (S,B,V,F,M) 
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is displayed. Answer with the CR key if all files are to be 
transferred, or answer by typing one or a combination of two of the 
characters S, V, B separated by a comma and followed by the CR key if 
one or two of the types of files are to be eliminated. 

For example: 

^R PIP^ 

PIP 5.05 

OPT - E^ 

IN- DTO^ 

OUT- DKO-^ 

TYPES OF FILES TO BE SKIPPED (S,V,B): S ; 

This would consolidate free space and eliminate source files located 
on DTO and store the consolidated files on DKO assuming there was a 
directory on DKO. 

NOTE 

PIP option E cannot be used when the COS 
300 Foreground Data Entry Program is 
running . 

NOTE 

All control keys are ignored until the 
option E operation is completed. 

Binary Scratch Area Modification: 

As mentioned in section 5.1, the E option can be used in conjunction 
with /n to change the size of the binary scratch area. The binary 
scratch area, normally two segments (32 blocks) long, is adequate for 
most applications but extremely large DIBOL programs (containing many 
statements) may need more space. 

A typical sequence for expanding the binary scratch area is: 

^R PIP/2^ 

PIP 5.05 

OPT- E^ 

IN- DTO^ 

OUT- DKO^ 

TYPES OF FILES TO BE SKIPPED (S,V,B): / 
■♦-^ 

This would allocate 64 blocks to the binary scratch area on DKO, 
doubling its original size. 

In general , 

1. If the output device is not the input device, the binary 
scratch area on the output device equals 2+n segments. 

2. If the output device is the input device, the binary scratch 
area is set either to the size of the current area or to 2+n, 
whichever is less. That is, compressing a device onto itself 
can shrink the binary scratch area, if 2+n is less than the 
size of the original area. The binary scratch area cannot be 
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expanded if a device is being compressed onto itself since 
that would require writing over existing files. 

3. If no /n is specified, the size of the binary scratch area on 
the input device is assumed. 
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OPT-S 



5.1.5 Transfer Source Files 

Type S to transfer source files between two file-oriented devices. 
Answer IN with the name of the source file to be transferred and, 
optionally, a comma, and the output device DT0-DT7, or DK0-DK3. If no 
device is specified the system device is assumed. 

Answer OUT with the name to be assigned to the output file and, 
optionally, a comma, and the output device, DT0-DT7, or DK0-DK3. If 
no device is specified, the system device is assumed. 

If an attempt is made to transfer to or from a non-file-oriented 
device, the IN or OUT message is repeated. 



Example : 



OPT- S -J 

IN- TEST,DT1^ 

OUT- TEST,DK1^ 

OPT- (X or CTRL/C typed here) 
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OPT-V 



5.1.6 Transfer System Program 

Type V to move a system program between two file-oriented devices. 
Answer IN with the name of the system program to be transferred and, 
optionally, a comma, and the input device, DT0-DT7 or DK0-DK3. If no 
device is specified, the system device is assumed. 

Answer OUT with the name to be assigned to the output file, and, 
optionally, a comma, and the output device, DT0-DT7 or DK0-DK3. If no 
device is specified, the system device is assumed. If an attempt is 
made to transfer to or from a non-file-oriented device the IN or OUT 
message is repeated. 



Example : 



OPT- V^ 

IN- S0RT,DT1^ 

OUT- S0RT,DT4^ 

OPT- (X or CTRL/C typed here) 



NOTE 



PIP option V cannot be used when the COS 300 
Foreground Data Entry program is running. 
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OPT-X 



5.1.7 Return to Monitor 

Type X in response to OPT- and the system will terminate PIP and 
return to the Monitor. 

This feature is particularly useful when PIP is included in a string 
of Monitor commands in a BATCH program. The X option signals the end 
of the PIP program and the next Monitor command in the BATCH program 
is executed. 
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5.2 ERROR MESSAGES 

Message Explanation 

BAD DIRECTORY Attempt to reference or store a file on a 

device with no directory (or a directory 
that has been destroyed) . 

ILLEGAL DEVICE SWITCH A switch was specified that was not /R, /C 

or /K for input or /P, /L or /T for output. 

NO ROOM Attempt to store a file on a full device. 

PIP INITIALIZATION ERROR PIP unable to identify the type of devices 

resident in the system. Following this 
message, PIP attempts to return control to 
Monitor . 
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CHAPTER 6 
BUILD 



BUILD is a Utility program used to create data files containing fixed 
length records. Creating data files requires careful consideration of 
their proposed usage. (Designing BUILD records is discussed in 
Appendix D.) BUILD allows input from the keyboard, card reader (COS 
300 only), high-speed paper tape reader (COS — 300 only), or system 
device . 

A BUILD control program must be written before BUILD can be run. This 
control program provides the field description and order for input and 
output of the data to be used to create the file. Be sure to prepare 
a set of instructions on input preparation so data input will be 
according to specifications in the control program. 

During execution, BUILD checks each data input line to be sure the 
data entered conforms exactly to specifications in the control 
program. If no errors are found, the input line is written on the new 
data file and maybe printed on the line printer. If an error is 
detected, the record is not written to the data file. 

BUILD outputs a listing of the control file and data records created 
on the line printer, if desired. A summary of the number of records 
written, number of records not written and any hash totals kept is 
printed on the line printer for each file created. 



6.1 BUILD CONTROL PROGRAM 

The BUILD control program is created and written on a mass storage 
device with editing commands. 

This program conveniently falls into three sections. Field Descriptor, 
INPUT, and OUTPUT. Briefly, the Field Descriptor section defines all 
the fields to be used, the type and size and any initial values to be 
assigned . 

The INPUT section describes the order in which the data will be 
received. The input format specified in this section must be followed 
when preparing data for input. The OUTPUT section describes the order 
of the output of data. There may be up to seven output formats for 
one set of input so several different output files can be created with 
one input file. 
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Figure 6-1 is an example of a simple BUILD control 
explained in detail in the following sections. 



program which is 



Errors in the BUILD control program cause a return to the Monitor. 
Spaces and tabs may be inserted anywhere in the program which is 
explained in detail in the following sections. 

Errors in the BUILD control program cause a return to the Monitor. 
Spaces and tabs may be inserted anywhere in the program for 
readability. As with any COS program, comments inserted on a line 
must be preceded by a semicolon. 

The control program may be stored as two separate source programs: 
the Field Descriptor section as one and the INPUT and OUTPUT sections 
as the other. 



LN ,10 



; AUTOMATIC LINE NUMBER COMMAND, 
; START, AT 10, INCREMENT OF 10 



0010 


DEFINE 






0020 


F1,D6 




PART NUMBER 


0030 


F2,A30 




PART NAME 


0040 


F3,D7 




VENDOR NUMBER 


0050 


F4,D6 




DATE 


0060 


F5,D6 




WHOLESALE PRICE 


0070 


T1,D10 




TEMPORARY STORAGE 


0080 


C1,D2, 


25 


CONSTANT FIELD 


0090 


C2,D6, 


50000 


CONSTAN FIELD 


0100 


INPUT 


CDR 


? INPUT FROM CARD READER 


0110 


PART 




; KEYWORD 


0120 


Fl 




•PART NUMBE 


0130 


F2 




•PART NAME 


0140 


F5 




WHOLESALE PRICE 


0150 


DATE 




•KEYWORD 


0160 


F4 




DATE 


0170 


VENDOR 


1 i 


KEYWORD 


0180 


F3 




VENDOR NUMBER 


0190 


OUTPUT 


1 PRTFIL 


•OUTPUT TO PRTFIL FILE 


0200 


F3 C 




•VENDOR NUMBER 


0210 


Fl C 




•PART NUMBER 


0220 


F2 




PART NAME 


0230 


F5 




•WHOLESALE PRICE 


0240 


F4 




DATE 


0250 


END 







Sample input lines for above control program 

:PART 126789 'HEX BOLT' 200 

:VENDOR 1476116 

:PART 176117 WASHER 100 

rVENDOR 7346177 

:PART 176118 

:VENDOR 3177615 

:PART 126788 '#6 MACHINE SCREW' 300 

rVENDOR 2061311 

Figure 6-1 
Sample BUILD Control Program 
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Records created according to control program in Figure 6-1 would look 
like: 

1476116126789HEX BOLT 22 spaces 000200030772 

7346177176117washer 24 spaces 000100030772 



6.1.1 Field Descriptor Section 

The Field Descriptor section specifies all fields to be referenced in 
later sections of the Control program. It gives their type (alpha or 
decimal), size (1-510) and initial values, if any. 

The format for this section is 

DEFINE 

fieldx, typesize, initial value 



where 

DEFINE is the section heading and must be the first 

statement in the program. 

fieldx is an F, T, or C and a number. The F, T or C 

indicates data fields (F) , temporary fields (T) , and 
constant fields (C) . These names are for the 
convenience of the user and are treated equally by 
BUILD. All F fields must be listed first, all T 
fields second, and all C fields last. The number 
(x) must be a positive, non-zero decimal number not 
greater than 511 and may begin at any number. 
Numbers may be skipped but within a field group (F, 
^ T or C) must be in ascending order. Temporary 
fields are used to accumulate hash totals. Constant 
fields are used to enter a default value or range 
check. 

Remember, however, that Fl is assigned to the first 
field, F2 to the second, etc. If the field names 
assigned are, for example, 

Fl 
F5 
F6 

Blank fields will be left in core. References to F2 
would cause an error. 

typesize is A for alphanumeric fields or D for decimal 

fields. Use A to describe fields which contain 
other than numbers. Size is an unsigned decimal 
number in the range 1-510. 

initial value Initial values can be assigned to any fields. 

Alphanumeric values consist of any sequence of legal 
COS characters (excluding single quotation marks) 
and are enclosed in single quotation marks. Initial 
decimal values consist of a sequence of digits 
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optionally preceded by a + or - sign or followed by 
a - sign. These initial values must be of the same 
size and type as the field for which they are 
specified. The sign and quotation marks do not 
count in the size of the initial value. If an 
initial value is not specified, the field is 
initially set to if decimal or blank if alpha. 

Remember, there is a difference between decimal and 
alpha constants consisting of the same digits and if 
a constant is to be referenced as alpha and decimal, 
it must be defined both ways. For example, 

C1,D3,234 
C2,A3, '234' 

Field description statements must be entered on consecutive lines and 
each line is terminated with the CR key. Use the editing commands to 
create this file. 



Example: 




.0010 


DEFINE 


.0020 


F1,D6 


.0030 


F2,A30 


.0040 


F3,D7 


.0050 


F4,D6 


.0060 


F5,D6 


.0070 


T1,D10 


.0080 


C1,D2,25 


.0090 


C2,D6, 500000 



STARTS BUILD CONTROL PROGRAM 
PART # FIELD, DECIMAL, 6 DIGITS 
PART NAME FIELD, ALPHANUMERIC, 30 CHARS 
VENDOR # FIELD, DECIMAL, 7 DIGITS 
DATE FIELD, DECIMAL, 6 DIGITS 
WHOLESALE PRICE 
TEMPORARY FIELD 

CONSTANT FIELD CONTAINING VALUE OF 25 
CONSTANT FIELD CONTAINING VALUE OF 
500000 



6.1.2 INPUT Section 

The INPUT section specifies the device (i.e., card reader (COS 300 
only), keyboard, etc.) and arrangements of the data to be input. The 
format of the INPUT section is 

INPUT dev 

keyword, output format# 

f ieldx 



where 

INPUT 



is the section header and must be the first 
statement of the INPUT section. 



dev 



is the 3 character designation for the input 
device: 



KBD - terminal keyboard 
CDR - card reader (COS300 only) 
RDR - high-speed paper tape reader (COS300 
only) 
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SYS - a file on the system device 

In the case of CDR, RDR and SYS, the input data is 
prepared in advance and stored on cards, paper 
tape, or the system device. 

keyword is the name assigned to a group of fields which 

will make up one input line to the BUILD program. 
Keyword is an alphanumeric character string of any 
length but only the first six characters are 
significant. Field names cannot be keywords. 
Keywords provide the connection between the data 
entered at BUILD run time and the data format 
specified in the control program. 

(comma) is optional and specifies comma as the field 

delimiter on input lines. This allows the 
alphanumeric data input for that keyword to 
contain embedded spaces and tabs. In most cases, 
however, spaces are suggested as delimiters. 

For example, 

if control program specifies 

PART, 
then the input line is 

PART, 126789, HEX BOLT, 200 
However, if the control program specifies 

PART 
then the input line is 

PART 126788 '#6 MACHINE SCREW 300 

output format# is a number (1-4 for 8K systems or 1-7 for 12K 
systems) which specifies the output format to be 
used for this input line. This number corresponds 
to an OUTPUT section number (described in section 
6.1.3). If an output format number is not 
specified, there is no output for fields under 
this keyword. If an output # is specified, no 
output takes place until input for the 
corresponding fields is completed. 

fieldx is one of the previously described fields (F, T, 

or C) and a number. These fields must be listed 
in the order in which they will be input. 

To enter the BUILD input line without keywords, specify an asterisk 
(*) in place of a keyword. For example, 

INPUT CDR 

*1 

Fl 

F2 

All field descriptions beginning with the * must be listed before 
those beginning with keywords. 
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NOTE 

BUILD input lines without keywords must 
be entered in the exact order specified 
in the INPUT section of the control 
program because there are no keywords to 
relate an input line to the fields 
described in_ the control program. 



Data is inserted in * fields in order of input. 



The INPUT section is terminated by the OUTPUT 
section of the control program. 



heading for the next 



Example: 




.0010 


DEFINE 


.0020 


F1,D6 


.0030 


F2.A30 


.0040 


F3,D7 


.0050 


F4,D6 


.0060 


F3,D6 


.0070 


T1,D10 


.0080 


C1,D2,25 


.0090 


C2, 06, 500000 


.0100 


INPUT CDR 


.0110 


PART 


.0120 


Fl 


.0130 


F2 


.0140 


F5 


.0150 


DATE 


.0160 


F4 


.0170 


VENDOR 1 



.0180 F3 



; INPUT IS FROM CARD READER (COS 300 

only) 
1ST INPUT LINE HAS KEYWORD PART 
1ST FIELD OF PART LINE IS PART NUMBER 
2ND FIELD OF PART LINE IS PART NAME 
3RD FIELD OF PART LINE IS WHOLESALE 

PRICE 
2ND INPUT LINE HAS KEYWORD DATE 
1ST FIELD OF DATE LINE IS DATE 
3RD INPUT LINE HAS KEYWORD VENDOR 
AND ALL INPUT IS TO BE OUTPUT 
ACCORDING TO FORMAT 1 

IF VENDOR IS MISSING; NO OUTPUT OCCURS 
1ST FIELD IS VENDOR NUMBER 



OPTIONS 

The INPUT section of the control program also allows assignment of 

default fields, skips, or errors for missing fields, flag fields, 

range checks, hash total fields, and checkdigits. 
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These options may be specified for any field and have the order and 
format shown: 



f ieldx 



(SKIP 
=dfldx 
ERROR 



[flag] [RANGE ( [Ifldx] , [ufldx] ) ] [HASH (hfldx) ] [CHECK] 



Spaces may be used to separate the options for readability. Any 
combination of options can be used but they must appear in the order 
shown above. 

Use one of the SKIP, default (dfldx) or ERROR options to specify an 
alternative for a missing field in a BUILD input line. SKIP causes 
the value previously stored in f ieldx to be used again, assuming it 
was not cleared. 

=dfldx assigns the current value of the default field (dfldx) to 
f ieldx. The default field (usually a C field) must have the same type 
and size as f ieldx. ERROR causes an error message on the terminal at 
BUILD run time. If none of these is specified, SKIP is assumed when 
f ieldx is missing from the BUILD input line. A constant field (C) 
cannot be used as f ieldx. 

Use the flag option to set the flag field to 1 when fieldx is present 
and zero when not present. The flag field can be checked later in the 
user's DIBOL program. The flag field must be a decimal field. 

Use the RANGE option to specify a high and low limit gov the data in 
the destination field. The destination field and the fields specified 
as the limits must be decimal fields. The low limit field is 
specified first and must be less than or equal to the size of the 
destination field. If the low limit field is omitted, there is no 
lower limit. The high limit field is specified second and must be 
larger than or equal to the size of the destination field. If the 
high limit field is omitted, there is no high limit check. The value 
of the data entered at run time must be within the range specified. 

Use the HASH option to request a hash total on the data in the 
destination field. The destination field and the hash total field 
(hfldx) must be decimal. Since the hash total field (usually a T 
field) is used to store an accumulating sum of the destination field 
data, it cannot be smaller than the destination field and should be 
larger. If the hash total exceeds the storage field , the high order 
(leftmost) digits are lost. The field used to store the hash total 
should not be used for any other purpose within the BUILD control 
program. 

Use the CHECK option to request a checkdigit calculation on the data 
entered in the destination field. The destination field must be 
decimal. The checkdigit is the rightmost digit and is not stored. 
For example, if the field is a D6 and the number 1234561 is entered, 
the rightmost digit (1) is the checkdigit and is not stored. Using 
the same field size, D6, if the number 12345 is entered, 5 becomes the 
checkdigit. The checkdigit formula is calculated on 001234 and 5 is 
not stored. If the checkdigit is not valid, an error results. The 
formula for calculating the checkdigit is described in Appendix E. 
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Example 



0010 


DEFINE 


0020 


F1,D6 


0030 


F2,A30 


0040 


F3,D7 


0050 


F4,D6 


0060 


F5,D6 


0065 


F6,D1 


0070 


T1,D15 


0080 


C1,D2,25 


0090 


C2,D6, 500000 


0100 


INPUT CDR 


0110 


PART, 


0120 


Fl ERROR 


0130 


F2 F6 


0140 


F5 RANGE (CI 


0150 


DATE 


0160 


F4 


0170 


VENDOR 1 


0180 


F3 CHECK 



;PART INPUT LINE HAS COMMA AS DELIMITER 
; ERROR MESSAGE IF PART NO. NOT ENTERED 
;F6=0 IF F2 NOT PRESENT 
HASH Tl ;WHOLESALE PRICE MUST BE 
; WITH IN RANGE SHOWN IN CI AND C2. STORE 
;HASH TOTAL IN Tl 

;D0 CHECKDIGIT ON VENDOR NUMBER 



EXPLANATION 

RANGE check on amount $.25 to $5,000.00 HASH total 
on amount. 

If there is not a part number, output an error. 
Do a checkdigit on vendor number. Data input for 
keyword PART must be separated by commas. 



6.1.3 OUTPUT Section 

The OUTPUT section specifies the name and sequence of the data to be 
stored on a mass storage device. The OUTPUT section is composed of 
OUTPUT blocks, each of the following form 

OUTPUT output format* label/default unit 
f ieldx 



where 
OUTPUT 

output format# 



label 



is the heading of the last section of the control 
program and must appear even if no output is 
desired. Be sure that OUTPUT is not used as a 
keyword in the control program. 

is the number (1-4 for 8K systems, 1-7 for 12K 
systems) which links a keyword in the INPUT 
section to a particular OUTPUT format. This 
number must be in ascending order (beginning with 
1) and must appear after OUTPUT. 

is the name to be assigned to the newly created 
data file. The name can be any unique sequence of 
characters (only the first six are significant) . 
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default unit is an optional entry specifying the logical unit 

(1-15) where the output file is located. (If the 
number specified exceeds 15, it is taken modulo 
16.) If the file is not found on the default unit 
when the control program is executed, a MOUNT 
message is displayed. 

fieldx The F, T or C fields in the order in which they 

are to be output. 

The OUTPUT section ends with the specification of another OUTPUT 
section (up to 4 for 8K, 7 for 12K) or an END statement. 

If another OUTPUT section is specified, its format number must be the 
next number in sequence. Different OUTPUT format sections can contain 
the same fields so that several data files can be created from one 
input. All fields between OUTPUT and END or OUTPUT and another OUTPUT 
form one record; record length must not exceed 510 characters. 

OPTIONS 

The OUTPUT section of the control program has two options, C or +, 
which are specified as follows: 

OUTPUT 1 datal 
FIO C 
T50 + 
T75 +C5 

Use C to clear a field after output of the record. Decimal fields are 
cleared to zeros, alpha fields to blanks. During input the contents 
of fields not cleared with C options can be repeated in following 
records by skipping fields in subsequent input lines. 

Use + as a counter or sequence check. The field to be incremented is 
usually a temporary field (T) and must be decimal. This field is 
output as part of the record being created. + increments the field by 
one; to increment by any other number specify an increment fielc3 
( + fieldxx) . The increment field (usually a C field) must be decimal 
and must not be larger than the destination field. If the increment 
sum exceeds the destination field, the high order digit is lost. The 
C and + options cannot be used on the same field. 
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Example 



0010 


DEFINE 






0020 


F1,D6 






0030 


F2,A30 






0040 


F3,D7 






0050 


F4,D6 






0060 


F5,D6 






0070 


T1,D10 






0080 


C1,D2,25 






0090 


C2,D6, 500000 




0100 


INPUT CDB 






0110 


PART, 






0120 


Fl ERROR 






0130 


F2 






0140 


F5 RANGE 


(C1,C2) 


HASH Tl 


0150 


DATE 






0160 


F4 






0170 


VENDOR 1 






0180 


F3 CHECK 






0190 


OUTPUT 1 


PRTFIL 


; OUTPUT FORMAT 1; FILE NAME, PRTFIL 


0200 


F3 C 




; VENDOR NUMBER 


0210 


Fl C 




;PART NUMBER 


0220 


F2 C 




;PART NAME 


0230 


F5 C 




; WHOLESALE PRICE 


0240 


F4 




; DATE 


0250 


END 







Clears fields 
written. 



EXPLANATION 



with "C" each time record 



IS 



6.1.4 Storing the BUILD Control Program 

When the BUILD control file is complete, it should be stored on a mass 
Storage device for future use. Use the command 

_;^WRITE BLDSPC 

for example, to store the control program. 
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6.2 OPERATING PROCEDURES 

To load the BUILD program, type 

_^RUN BUILD[, filel, ...,file7] [/xx] 

in reply to the dot displayed by the Monitor 

where 

f ilel, . . . ,f ile7 are the BUILD control programs. If the BUILD 

control file specified the INPUT device as SYS, 
then the rest of the files are names of data files 
on the system device to be input. If no files are 
specified, the file in the edit buffer is used to 
create a master file. 

Multiple files are concatenated and passed to the 
program as one large file. 

/xx are optional switches which affect the listing 

printed by BUILD. The first switch is: 

/L list the BUILD control program, or 

/N do not list the control program. 

The second switch is: 

/L list the data records created 

/N do not list the data records 

If a second switch is not specified, a data 
records list is not produced. (/N is assumed.) If 
the no list condition is specified, errors 
encountered in the control program or data records 
are listed on the line printer as is the summary 
of hash totals, records created, etc. 

Examples: 

_j_RU BUILD, BLDSPC/NL 

lists the data records and summary of totals but not the control 
program. 

^RU BUILD, BLDSPC/L 
lists the control program and summary of totals, while 

^RU BUILD, BLDSPC/LL 
outputs both listings and the summary. 
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When BUILD is loaded, the message 

MOUNT xxxxxx #01 FOR OUTPUT; 

is displayed, xxxxxx is the output file name specified in the control 
program and #01 is the sequence number. 

Continuing the example, the message is 

MOUNT PRTFIL #01 FOR OUTPUT; 

Answer with the number (1-15) of the logical device where the output 
file is to be stored. When BUILD is complete, the Monitor DIRECTORY 
command can be used to obtain a label of the data file. The next 
steps depend on the device (KBD, CDR, RDR, SYS) specified in the INPUT 
statement of the control program. If the data output exceeds the 
storage capacity of the logical unit, the following message is 
displayed if default messages were not specified; 

MOUNT xxxxxx #02 FOR OUTPUT; 

where xxxxxx is the label of the output file. Mount the new output 
device if necessary. Type the number of the logical unit where the 
rest of the output is to be stored. 

BUILD can be aborted at any time by typing CTRL/C, to return to the 
Monitor. All output is lost. The BUILD program must not be run if 
the line printer is inoperative. 



6.2.1 KBD - Data Input from Keyboard 

If the INPUT statement specifies KBD, BUILD responds to the RUN 
command with 

DO YOU PREFER PROMPTING? 



Answer YES and a CR key to have the input line keywords printed 
automatically by BUILD. To use prompting, the data input must consist 
of successive input lines whose keywords (if present) appear in 
exactly the order in which they are presented in the INPUT section of 
the control program with no omissions. Monitor displays 



after each keyword to indicate it is ready for input. 

Answer NO and a CR key to allow each input line keyword to be typed. 
BUILD displays a colon (;) when it is ready to accept input. Input 
lines can then be typed in any order and BUILD will match the input 
line keyword to the keyword in the INPUT section of the control 
program. 

If the reply is YES or NO, the dialogue is over and data input can 
begin. BUILD assumes errors will be edited on line. 

When all the input lines have been entered, type CTRL/Z to indicate 
the end of data input. BUILD closes the output files and prints 
number of records written, records not written and any hash totals 
requested and returns control to the Monitor. 
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6.2.2 SYS, CDR or RDR - Data Input from System Device, 
Card, or Paper tape 

If the INPUT statement specifies SYS, CDR or RDR, 

The question 

DO YOU WISH TO EbiT ON-LINE? 

is displayed. Answer NO and the CR key and future errors are printed 
on the line printer and all fields in the bad input line will become 
undefined. Records with undefined fields are not written to the 
output file. They remain undefined unless cleared in the output 
section or redefined with subsequent input. 

Answer YES and the CR key to have an error message displayed on the 
terminal whenever an error is encountered. BUILD displays the 
incorrect input line, the error message and the message 

RETYPE: 



Type the correct input line. For details on data input refer to 
section 6.3. If just the CR key is typed, the field in error becomes 
undefined . 

When BUILD reaches the end of the paper tape in the reader, it asks 

MORE? 

Answer NO and the CR key if there is no more input. Otherwise, put 
additional paper tape in the reader and type Y and the CR key to 
continue reading data. 

When input is complete, BUILD closes the output data files and prints 
the number of records written and records not written and any hash 
totals requested and returns control to the Monitor. 

When BUILD reaches the end of cards in the reader, the terminal alarm 
sounds. If there are more cards put them in card reader and type any 
key to resume operation. Otherwise type CTRL/Z to terminate input. 



6.3 BUILD INPUT LINE 

The data input line is free form, i.e., specific data fields need not 
be in prespecified column positions. However, the fields must be 
input in the same order within a keyword line as specified in the 
INPUT section. Data input lines entered at the keyboard may or may 
not contain keywords depending on the answer to the prompting 
question. Data input lines prepared on paper tape or cards must 
contain keywords, unless an asterisk was specified in the control 
program. 

The following conventions must be observed when entering input lines. 

1. The first field in an input line may be preceded by spaces or 
tabs if desired. 

2. Each input line must be terminated with the CR key. 
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3. The fields, if more than one is entered per line, must be 
separated from each other by spaces, tabs, or commas. For 
example, an input line described in the control program as 

DEFINE 

F1,D6 

F2,A30 

F5,D6 
INPUT KBD 
PART, 
Fl 
F2 
F5 

can be entered as 

PART, 126789, HEX BOLT, 500 

or if described as: 



PART 
Fl 
F2 
F5 

can be entered as 

PARTi_il26789i_j'HEX BOLT'i«j500 

4. A field can be omitted by actually omitting it if there are 
no fields to the right or by typing two consecutive commas if 
there are fields to the right. For example 

PART, 126789, HEX BOLT 
PART, , HEX BOLT, 100 

Omitting a field may cause an error depending on the options 
(SKIP, default field or ERROR) specified for the field in the 
control program. 

5. Decimal data must be entered in one of the following forms: 

digits 
+digits 
-digits 
digits- 

The plus sign is optional and minus can be placed at the 
beginning or end of the data. Decimal data cannot have 
embedded blanks, i.e., 12 34 is illegal. The number of 
digits must be less than or equal to the field size specified 
in the control program in the corresponding field. 

If the number entered is smaller than the field size, it is 
right justified and zeros are inserted on the left. If the 
number is too long, an error results. 



6-14 



6. Alphanumeric data must be entered in one of the following 
forms: 

'data' or data 

In the first form ('data') any legal COS character (including 
spaces and tabs) is permitted except a single quotation mark 
(apostrophe) . BUILD treats tabs inside quotes as single 
spaces, but echoes them as backslashes on the terminals. 

In the second form any legal COS character except spaces, 

tabs, and commas is permitted. The first character, however, 

must not be a single quotation mark. If the keyword PART did 
not have a comma, then input would be 

PARTi_jl75i^WASHERi_il00 

The number of alphanumeric characters must be less than or 
equal to the size of the corresponding field specified in the 
control program. If the data is smaller than the field, it 
is left justified and padded with blanks. If the data is too 
large, an error results. 

7. If comma was specified as the field delimiter in the INPUT 
section of the control program, then alphanumeric data not 
enclosed in single quotation marks may have embedded spaces 
and tabs but no commas and must be separated from the next 
field by a comma. For example, if the control program 
specified : 

DEFINE 
F1,A30 
F2,A30 
F3,A30 
INPUT KBD 
NAME , 1 

Fl 

F2 

F3 

the input line would be typed as 

NAME, JOHANSEN'S MARKET, 2 MAIN ST., 'MAYNARD, MASS.' 

Extra text at the end of a data record is illegal except for 
comments which must be preceded by a semicolon. 
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8. The arrangement of * and keyword records is immaterial at run 
time. BUILD inserts records in the asterisk fields by the 
order of input and in keyword records by matching keywords. 
For example. 



Descriptor 
* 




Keywordl 



Keyword 2 



Input Lines 

Keywordl . . . 
* 



Keyword 2. . . 
* 



etc 



There is a current asterisk record pointer in BUILD which 

keeps track of the next asterisk record to be filled. After 

inputting the last * record, BUILD goes back to the first 
one . 



6.4 ERROR MESSAGES 

BUILD error messages are output to the line printer as the errors are 
encountered . 

BUILD checks each section of the control program and the input data 
for errors. 

If editing is being done on line, the line in error, error message, 
and RETYPE message are displayed on the terminal. The keyword is 
displayed if prompting is in effect. Otherwise, the keyword must be 
retyped. If no input editing is being done, data input errors are 
logged on the line printer in the form 

input line 
**** 

error message 

Failure to correct a field in error causes the field to become 
undefined. The record containing an undefined field is not written on 
a storage device. 

Error messages followed by an explanation point (!) indicate fatal 
errors. The error messages for the Field Description section of the 
control program are: 
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Message 



Meaning 



BAD DIGIT IN DECIMAL INITIAL VALUE 

Alpha character in a decimal initial 
value . 



DATA TABLE OVERFLOW! 



DESCRIPTOR TABLE OVERFLOW! 



EXTRA CHARS AT STMNT END 



FIELD NUMBER MISSING OR 



Too much 
characters. 



data. Maximum = 960 
fields defined. 



Too many F, T and C 
Maximum = 160. 



Characters not relating to statement 
appear with statement. 

Field number or default unit number is 
missing, is or greater than or equal 
to 512. 



INITIAL ALPHA VALUE DOESN'T BEGIN WITH QUOTE 

Beginning quotation mark missing for 
initial alpha value. 



INITIAL VALUE TOO BIG 



INITIAL VALUE TOO SMALL 



The initial value specified is larger 
than the field size. 

The initial value specified is smaller 
than the field size. 



MISSING CLOSE QUOTE ON ALPHA INITIAL VALUE 

Quotation mark not specified where 
necessary. 



MISSING INITIAL VALUE 



NO COMMA AFTER FIELD NAME 



NOT A OR D 



NOT BUILD FILE! 



NOTHING AFTER FIELD NAME 



Comma was inserted after type and size 
but initial value was not specified. 

No comma or a character other than comma 
was specified after the field name. 

A character other than A or D occurred 
in a data specification statement where 
A or D was expected. 



File did 
statement. 



not 



start 



with 



DEFINE 



Field type and size are not specified 
after field name and comma. 



NUMBER REPEATED OR OUT OF ORDER 

A field sequence number is used more 
than once or is out of ascending order 
sequence. 
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Error messages for the INPUT/OUTPUT sections of the control program 
are: 



Message 

BAD END STATEMENT 
BAD DEFAULT FIELD 

BAD DEPICTOR 

BAD DEVICE 

BAD FIELD NUMBER 

BAD INPUT STATEMENT 
BAD OPTION 

BAD OUTPUT FORMAT # 

BAD RANGE CONSTRUCTION 

C-FIELD NOT PERMITTED 

DESTINATION FIELD NOT DECIMAL 

FIELD NOT DECIMAL 
HASH FIELD MISSING 

INCREMENT TOO BIG 

MISSING FIELD NAME 
OUT OF ROOM! 



OUTPUT RECORD TOO BIG 



Meaning 

Missing or misspelled END statement. 

Default field does not agree with size 
or type of object field. 

OUTPUT format in error. 

Not KBD, SYS, RDR or CDR. 

Field number specified is greater than 
2047. 

Statement missing or misspelled. 

Something other than C or + is specified 
in OUTPUT section. 

Format number is wrong or out-of-range 
(1 or 7) . 

In RANGE portion of statement an open or 
close parenthesis or comma is missing. 

C-type fields cannot be specified in the 
INPUT section. 



The destination field specified is not 
defined as decimal. 

Field not defined as decimal. 

No field specified for storage of hash 
total. 

Length of increment field bigger than 
length of output field. 

Field name is missing. 

Too many descriptors in INPUT section. 
Maximum keywords, approximately 121. 
Approximate maximum fields for all 
keywords = 192. Too many fields in 
OUTPUT section. Approximate maximum = 
128. 

Record exceeds 510 characters. 
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Message 
UNDEFINED FIELD 



UNDEFINED FORMAT 

UNEXPECTED END OF FILE 

Error messages for data input 

Message 
BAD ALPHA FIELD 
BAD CHECKDIGIT 

BAD DECIMAL FIELD 
BAD DELIM 

BAD KEYWORD 

EXTRA CHARS AT END OF DATA 

FIELD OUT OF RANGE 
NECESSARY FIELD MISSING 
TOO BIG 



Meaning 

Field referenced was not defined in 
Field Descriptor section of control 
program or a decimal field was being 
equated to an alpha field, or an alpha 
field was specified for a flag. 

Format number referenced but not defined 
(error given on END statement) . 

Missing END statement. 

are : 

Meaning 



Illegal entry in alpha field. 

Checkdigit calculated by BUILD does not 
match the one entered. 

Illegal entry in decimal field. 

Fields are separated by an illegal 
delimiter, i.e., by a ; or ! . 

Keyword entered not described in the 
control program. 

More data was entered than was defined 
in the control program, i.e., 4 fields 
entered when only 3 were defined. 

Data entered is not within the range 
specified in the control program. 

Field specified as necessary in control 
program was not entered. 

Data entered is greater than the size of 
the field as defined in the control 
program. 



6-19 



CHAPTER 7 
SORT 



SORT arranges COS data files in order according to a key specified in 
the SORT control program. The key consists of certain fields or parts 
of fields which appear in each record of the file being sorted. The 
data records can be sorted in ascending or descending order based on 
the key. 

Before SORT can be run, a SORT control program must be written. The 
control program defines the fields of the records to be sorted, 
specifies labels for input and output files, and the key to be used in 
the sort. 

SORT handles one file per run and there must be a separate SORT 
control program for each file sorted. Files to be sorted must contain 
fixed length records. 

If a multi-reel file is to be sorted, the SORT program sorts each reel 
separately. A separate merge pass of the same SORT program must then 
be done to combine the file. To sort a multi-reel DECtape file on 
disk without going through a merge phase, PIP the data file onto disk 
before sorting. (See PIP option D.) 



7.1 SORT CONTROL PROGRAM 

The SORT control program is created and written on a mass storage 
device with editing commands. It consists of a file Descriptor 
section and an INPUT/OUTPUT section. 



7.1.1 File Descriptor Section 

The File Descriptor section has the form: 

DEFINE 

Fx , typesize 
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where: 

DEFINE is the section heading and should be the first 

statement in the program. 

Fx is the first field in the record to be sorted. 

All fields in the record to be sorted must be 
defined in the File Descriptor section in the 
order they appear in the record. The number (x) 
must be a positive, non-zero decimal number not 
greater than 511 and should begin at 1 with no 
numbers skipped. 

typesize is an A for alphanumeric fields or a D for decimal 

fields and an unsigned decimal number in the range 
1 - 510. 

File Descriptor statements must be entered on consecutive lines and 
each line is terminated with the CR key. Use the editing commands to 
create the control program. 

NOTE 

The BUILD Field Descriptor written previously to 
create the data file can be used as the SORT File 
Descriptor if the input and output fields are 
exactly the same and if it was stored as a 
separate program. T and C fields and initial 
values are ignored by SORT. 



;PART NUMBER 

;PART NAME 

; VENDOR NUMBER 

;DATE 

; WHOLESALE PRICE 

This example is based on the file created with the BUILD control 
program. (See Chapter 6.) 



7.1.2 INPUT/OUTPUT Section 

This section specifies the input and output file labels and the number 
of work units available for the SORT. 

These work units become part of the MOUNT message displayed during 
SORT run time. 



Example: 




0010 


DEFINE 


0020 


F1,D6 


0030 


F2,A30 


0040 


F3,D7 


0050 


F4,D6 


0060 


F5,D6 
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Format of the INPUT/OUTPUT section of the control program is 

INPUT f ilnam/d,filnam/d 

SORT n/wl,w2,w3 

KEY f ieldx (n,m) -,f ieldx (n,m) . . . 

OUTPUT filnam/d 

END 



where 

INPUT filnam/d, filnam/d 



SORT n/wl,w2,w3 



KEY f ieldx(n,m)-, . . . 



is the name of the file containing the 
records to be sorted. If no name is 
specified, SORTIN is assumed. /d is 
optional and is the unit (1-15) to check 
for the named file. If the control 
program is used for a separate merge 
operation, the additional filnams are 
the files to be merged. 



is the number 
used as sera 
n is any numbe 
be at least 
sort. If the 
present 4 un 
recommended th 
units be as 
input file, 
default work 
available. Us 
the mount work 



(n) of logical units to be 
tch areas during the sort, 
r from 3 to 7 . There must 

three units to execute a 

SORT statement is not 

its are assumed. It is 

at the size of the scratch 

large as one "reel" of the 

/wl,w2,w3 are optional 

units to be used if 

ing default units bypasses 

unit message. 



fieldx is the field name and number of 
the field to be used as the SORT key. 
(n,m) are optional and specify the nth 
through mth characters of the field. If 
no characters are specified, the entire 
field is used as a SORT key. - requests 
a SORT on that field in descending 
order. If - is not specified, ascending 
order is assumed (+ may also be used to 
indicate ascending order). Up to eight 
fields or parts of fields can be 
specified for the sort key. There is no 
restriction on the size of the sort 
field as long as the total size of the 
fields which comprise the key is not 
larger than 510 characters. The sort is 
done left to right on the key using the 
COS codes shown in Appendix A. The 
leftmost key is most significant, and 
the leftmost character in each key field 
is most significant for sorting 
purposes, n and m are unsigned integers 
with n less than or equal to m. Each m 
must be less than or equal to the length 
of the record. 



OUTPUT filnam/d 



is the data file name to be given to the 
sorted records. If this statement is 
missing SORT assigns the name SRTOUT to 
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END 



Example 



the output. For multi-reel files the 
names $TMPOO - $TMPnn are used. /d is 
the default unit to check for the output 
file. If the file is not there, the 
mount message is displayed, 

NOTE 

For a multi-reel input file, 
SORT sorts the first reel onto 
the output file and then asks 
for the second reel of input. 
For example, when sorting a 
3-reel input file, the output 
files (which are to be input 
to MERGE) are called $TMPOO, 
$TMP01, and $TMP02. 

Terminates control program. 



0010 


DEFINE 




0020 


F1,D6 




0030 


F2,A30 




0040 


F3,D7 




0050 


F4,D6 




0060 


F5,D6 




0070 


INPUT PRTFIL 


;DATA FILE NAME 


0080 


SORT 4 


;WORK UNITS 


0090 


KEY F1-,F4 


;SORT KEYS = PART 

; NUMBER IN DESCENDING ORDER 

;DATE IN ASCENDING 

; ORDER 


0100 


OUTPUT PRTFIL 


; SORTED DATA FILE NAME 


0110 


END 





7.2 SORT OPERATING PROCEDURES 

SORT is called via the Monitor command: 

^RU SORT[, filel,...,file7] 

where 

f ilel, . . ,f ile7 are the SORT control program which can be stored 
as more than one file. If none are specified, the 
file in the edit scratch area is used. 
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Mount the input file and n-1 (where n is the number of logical units 
to be used for SORT) of the scratch units. The Monitor outputs the 
message: 

MOUNT filnam #01 FOR INPUT: 



where filnam is the input file name specified in the SORT control 
program. Type the number of the logical unit (1-15) where the data 
file is stored. Monitor outputs the messages: 

MOUNT $W0RK2 #01 FOR OUTPUT: 



MOUNT $WORKn #01 FOR OUTPUT: 

Type the number (1-15) of the logical unit where all but the last of 
the SORT scratch units are located. The Monitor checks the labels of 
the files currently on these units. If a label exists. Monitor asks: 

REPLACE xxxxxx #nn? 

Type YES and the CR key to use the unit as a scratch area and destroy 
what is currently stored there. Type NO and the CR key to save the 
present label and specify another unit for a work area. 

When the first sort phase is complete, the input is no longer needed. 
Monitor displays the message: 

MOUNT $W0RK1 #01 FOR OUTPUT: 



In a tape SORT the input tape can be dismounted and the last work unit 
mounted or the input file can become the last scratch area. (Monitor 
will ask REPLACE? if this is done; type YES and the CR key) . 

Type the number (1-15) and the CR key of the logical unit where the 
last work area is located. 

When the main part of the SORT is complete. Monitor displays: 

UNIT XX IS FREE 

MOUNT filnam #01 FOR OUTPUT: 

XX is one of the units previously assigned as a work unit. SORT no 
longer needs the unit and it may be used for the output unit if 
desired . 

Mount the output file. Type the logical unit number (1-15) where the 
output is to be stored. SORT reads the sorted records from the work 
units and stores them on the specified output unit. 

If a default output unit is specified in the OUTPUT line of the SORT 
control, the MOUNT... FOR OUTPUT message may not appear. 

NOTE 

Sometimes the SORT program does not request that 
the last work unit be mounted - it types UNIT xx 
IS FREE where xx is the unit where the input file 
is mounted, and asks that the output file be 
mounted. Do not be alarmed - SORT has decided 
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that the file is sufficiently small and 
well-ordered that the main part of the sort is 
unnecessary. 



7.3 RUNNING SORT AS PART OF AN UPDATE PROCEDURE 

If the SORT control program has a line the first six non-blank 
characters of which are UPDATE, then the contents of the INPUT and 
OUTPUT parameter lines are ignored and the SORT program uses the label 
$UPDOO for both its input and its output file. (See Chapter 8 for 
UPDATE . ) 

7.4 MERGE OPERATING PROCEDURE 

To run SORT as a merge only operation, type: 
.RU SORT[, filel,file2,. .. ,file7]/x 

where 

f ilel, . . . ,f ile7 are the control program (possibly stored in two or 

more segments) . 

/x is one of the following switches: 

/A specifies that names of files to be merged are to 
be entered from the terminal in answer to the 
INPUT FILE LABELS: message. The output data file 
and default unit name are specified in the OUTPUT 
clause of the control program. 

/M specifies that names of files to be merged are 

listed in the INPUT line of the SORT control 

program. This option bypasses the INPUT FILE 
LABELS: message. 

/n specifies that the name of the files to be merged 
is listed in the INPUT line of the SORT control 
program. Checks for n files of the same name on 
n(l-6) default units as specified. If the number 
of units specified is more than the number of 
units shown on the SORT control INPUT line, a 
MOUNT message is displayed for those files not on 
the INPUT line. 

/L can be used with any of the above switches and 
lists the SORT control program on the line 
printer. 

When called with the /A option, SORT requests the names of the data 
files to be merged with the message: 

INPUT FILE LABELS: 



Enter the 1-6 character data file names separated by commas up to a 
maximum of six and default units if desired. At least two names must 
be entered or the error message NO INPUT is displayed. 
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For example: 

PRTFIL/10,FILEl/3 
If default units are not specified. Monitor outputs the message: 

MOUNT filnam #01 FOR INPUT: 
(where filnam is the data file name) for each data file specified. 
For example: 

MOUNT PRTFIL #01 FOR INPUT: 

Type the logical unit number (1-15) where the data file is located. 

Example: 

Sample Control Program called PAYKEY 

0100 DEFINE 

0110 F1,A6 

0120 F2,D5 

0130 F3,D11 

0140 INPUT PAYROL/4, PAYl/2 

0150 SORT 3/1,2,3 

0160 KEY F2 

0170 OUTPUT PAYROL/6 

0180 END 

To SORT the data file described in the control program PAYKEY, 

_^RUN SORT, PAYKEY 

The input data file is PAYROL located on logical unit 4. There are 
three sort work units, logical units 1, 2 and 3. The output data file 
is PAYROL and the sorted file is to be put back on unit 6. 

The /A option in SORT is used as follows: 

^RUN SORT, PAYKEY /A ^ 
INPUT FILE LABELS: 
PAYROL/4, PAY1/2,PAY0^ 
MOUNT PAYO #01 FOR INPUT: 
10^ 
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The input data file names to be merged are: 

PAYROL on logical unit 4 
PAYl on logical unit 2 
PAYO on logical unit 10 

The output data file, PAYROL, is put on logical unit 6. 

The /M option in SORT is used as follows: 

_^RUN SORT, PAYKEY/M^ 

The input data file names to be merged are found in the INPUT line of 
the control program: 

PAYROL on logical unit 4 
PAYl on logical unit 2 

The output data file, PAYROL, is put on logical unit 6. 

The /n option in SORT is used as follows: 

^RUN SORT, PAYKEY/2^ 

The input data files to be merged are: 

PAYROL on logical unit 4 
PAYROL on logical unit 2 

7.5 RULES FOR USING DEFAULT UNITS 

If you are using default units in your control programs for SORT, 
BUILD, etc., the data files should be mounted on those units. If the 
Monitor cannot find the input file on the default unit the message 

? MOUNT xxxxxx #xx FOR INPUT: 

is displayed. In the above MOUNT message the ? indicates that the 
input data file "xxxxxx" was not on the default unit specified. 

MOUNT PAYROL #01 FOR OUTPUT: 

If output of a data file using a default unit is attempted and another 
file already exists, the REPLACE message is displayed: 

REPLACE LIST #02 ? 

If output of a data file onto a logical unit that is already being 
used for input or output is attempted, the message IN USE is 
displayed . 

IN USE 

MOUNT PAYROL #01 FOR OUTPUT: 

10^ 
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7.6 ERROR MESSAGES 

Message 
File descriptor errors: 



Explanation 



BAD DIGIT IN DECIMAL INITIAL VALUE 

Alpha character in a decimal initial 
value . 



BAD WORK UNIT COUNT 
EXTRA CHARS AT STMNT END 

FIELD NUMBER MISSING OR 

ILLEGAL SORT KEY 

ILLEGAL UNIT 



Number of work units not in range 3-7. 

Characters not relating to statement 
appear on statement line. 

Field number is missing or is or 
greater than or equal to 512. 

Bad syntax on KEY statement, KEY too 
complex, or KEY statement missing. 

Default unit is or greater than 15. 



INITIAL ALPHA VALUE DOESN'T BEGIN WITH QUOTE 

Beginning quotation mark missing for 
initial alpha value. 



INITIAL VALUE TOO BIG 



INITIAL VALUE TOO SMALL 



The initial value specified is larger 
than the field size. 

The initial value specified is smaller 
than the field size. 



MISSING CLOSE QUOTE ON ALPHA INITIAL VALUE 

Quotation mark not specified where 
necessary. 



MISSING INITIAL VALUE 



NO COMMA AFTER FIELD NAME 



NOT A OR D 



NOTHING AFTER FIELD NAME 



Comma was inserted after type and size 
but initial value was not specified. 

No comma or a character other than comma 
was specified after the field name. 

A character other than A or D occurred 
in a data specification statement where 
A or D was expected. 

Field type and size are not specified 
after field name and comma. 



NUMBER REPEATED OR OUT OF ORDER 

A field sequence number is used more 
than once or is out of ascending order 
sequence. 



TOO MANY FILES 



Merge only, more than 6 input files 
specified . 
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Message 
UNRECOGNIZABLE LINE 



Explanation 

Parameter line did not start with a good 
keyword . 



SORT Errors: 



BAD RECORD SIZE 

NO INPUT 

OUTPUT ERROR 
UNIT XX IS FREE 



File contains records of variable 
length . 

Input file is null or not enough input 
files specified for a merge. 

Indicates a system malfunction. 

NOT AN ERROR - merely an informative 
message to aid the operator, xx is a 
COS logical unit number. 
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CHAPTER 8 
UPDATE 



COS UPDATE is a file maintenance program which makes changes, 
insertions and deletions to data files. 

UPDATE must also have a control program before it can be executed. 

UPDATE operates in two passes, passl reads the control program and 
UPDATE commands and checks for errors. It then outputs a modified 
version of these commands to a scratch file for the user to sort. 
Pass2 uses the UPDATE commands read from the scratch file to modify 
the input file, and creates a new output file. 

The UPDATE commands are listed on the line printer as they are 
executed. A summary of the number of records read, changed, inserted 
and deleted is printed when the UPDATE is complete. 



8.1 UPDATE CONTROL PROGRAM 

The control program consists of a file dscriptor section followed 
UPDATE, INPUT, SORT, KEY, OUTPUT and END statements in that order. 



by 



8.1.1 File Descriptor Section 

This section defines the fields as they appear in the file to be 
updated. The restrictions are the same as for the SORT program. T 
and C field names are accepted but are ignored by UPDATE. Initial 
values are retained unless specifically changed by an UPDATE command 
(see section 8.2). Be sure not to skip any numbers when assigning 
field names. The file descriptor section must start with a DEFINE 
statement. 



Example: 




0010 


DEFINE 


0020 


F1,D6 


0030 


F2,A30 


0040 


F3,D7 


0050 


F4,D6 


0060 


F5,D6 



PART NUMBER 
PART NAME 
VENDOR NUMBER 
DATE 
WHOLESALE PRICE 
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This file descriptor section is based on the file created with BUILD 
in Chapter 6. 



8.1.2 UPDATE Statement 

The form of this statement is: 

UPDATE filnam[/unit] 

where 

filnam is the 1-6 character name of the data file to be 
updated. This name may not contain spaces, tabs, 
or commas. 

/unit is optional and specifies the logical unit (1-15) 

which contains the file. If the number specified 
exceeds 15, it is taken modulo 16. If the unit is 
omitted or if the file is not on the unit 
specified. Monitor outputs the usual MOUNT 
message . 



ample : 






0010 


DEFINE 




0020 


F1,D6 




0030 


F2,A30 




0040 


F3,D7 




0050 


F4,D6 




0060 


F5,D6 




0070 


UPDATE 


PRTFIL/3 



;DATA FILE TO BE UPDATED IS 
;PRTFIL LOCATED ON LOGICAL 
;UNIT 3. 



8.1.3 INPUT Statement 

The form of this statement is: 

INPUT dev 

where 

dev is the physical device (KBD, RDR, CDR, SYS) to be 

used to input the UPDATE commands 

KBD - terminal keyboard 

RDR - paper tape reader 

CDR - card reader 

SYS - system device file 
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Example: 




0010 


DEFINE 


0020 


F1,D6 


0030 


F2,A30 


0040 


F3,D7 


0050 


F4,D6 


0060 


F5,D6 


0070 


UPDATE PRTFIL/3 


0080 


INPUT SYS 



UPDATE COMMANDS 
ARE STORED 
IN A FILE ON THE 
SYSTEM DEVICE. 



8.1.4 SORT Statement 

The form of this statement is: 

SORT n 

where n is the number (3-7) of logical scratch units which 

are to be used if the updated records must be 
SORTed. This is an optional statement. If the 
UPDATE commands are sorted, no SORT statement is 
needed. There must be at least three units to 
execute a SORT. If no scratch units are 
specified, 4 is assumed. If no SORT statement is 
specified, UPDATE executes a combined passl and 
pass2, reading one UPDATE command at a time and 
performing the update on the input file directly. 
No scratch unit is needed in this case. 



Example: 




0010 


DEFINE 


0020 


F1,D6 


0030 


F2,A30 


0040 


F3,D7 


0050 


F4,D6 


0060 


F5,D6 


0070 


UPDATE PRTFIL/3 


0080 


INPUT SYS 


0090 


SORT 4 



; THERE ARE FOUR SCRATCH 
; UNITS FOR THE SORT 



8.1.5 KEY Statement 

The form of this statement is: 

KEY f ieldx (n,m) - [ , . . . ,f ieldx (n,m) -] 

where 

f ieldx (n,m) -,.. . is the SORT key used to sort the data file. (See 

SORT control program.) There can be up to eight 
fields or parts of fields in the SORT key. 
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Example 



0010 


DEFINE 


0020 


F1,D6 


0030 


F2,A30 


0040 


F3,D7 


0050 


F4,D6 


0060 


F5,D6 


0070 


UPDATE PRTFIL/3 


0080 


INPUT SYS 


0090 


SORT 4 


0100 


KEY F1-,F4 



;THE KEY FIELDS 
;ARE PART NUMBER IN 
; DESCENDING ORDER 
;AND DATE 
;IN ASCENDING ORDER. 



8.1.6 OUTPUT? Statement 



The form of the statement is: 



OUTPUT filnam[/unit] 



where 



f ilnam 



/unit 



is the 1-6 character name to be assigned to the 
updated file. If the statement is omitted the 
output file has the same name as the input file. 

is the logical unit (1-15) where the output will 
be stored. If no unit is specified, a MOUNT 
message is displayed. 



Example: 




0010 


DEFINE 


0020 


F1,D6 


0030 


F2,A30 


0040 


F3,D7 


0050 


F4,D6 


0060 


F5,D6 


0070 


UPDATE PRTFIL/3 


0080 


INPUT SYS 


0090 


SORT 4 


0100 


KEY F1-,F4 


0110 


OUTPUT PRTFIL/4 



;CALL UPDATED FILE PRTFIL 
;AND STORE ON UNIT 4 



8.1.7 END Statement 

The form of the statement is: 

END 

END is the terminating statement of the UPDATE control program and 
must be present. 
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Example: 




0010 


DEFINE 


0020 


F1,D6 


0030 


F2,A30 


0040 


F3,D7 


0050 


F4,D6 


0060 


F5,D6 


0070 


UPDATE PRTFIL/3 


0080 


INPUT SYS 


0090 


SORT 4 


0100 


KEY F1-,F4 


0110 


OUTPUT PRTFIL/4 


0120 


END 



; TERMINATING STATEMENT OF 
; CONTROL PROGRAM 



8.2 UPDATE COMMANDS 



The UPDATE commands can be input from the keyboard at UPDATE run time 
or can be prepared previously on paper tape, cards or the system 
device. 

UPDATE commands have the general form: 
D )ukey [Fn=value] , . . . 




denote Insert, Delete, and Change 

represents the data in the fields used to sort the 
record. The character string typed must be 
exactly the same length as specified for the SORT 
fields. The string is continuous; no spaces, 
etc. can separate fields if more than one is in 
the sort key. If the data file is sorted on an 
alpha key (A12) all trailing spaces must be typed 
on an UPDATE command line, for example, 

Ci-i JONES J0HNu_ii_ji_iF6=. . . 

Fn is a field name and sequence number as specified 

in the UPDATE File Descriptor. Fields are 
processed from left to right and Field numbers may 
appear in any order. 

=value is the data to be inserted in the field named 
(Fn) . This data must agree in type with the type 
specified for Fn and must be less than or equal in 
size. If the value specified is smaller than the 
field size, the alpha field data is left justified 
and padded with blanks; decimal field data is 
right-justified and padded with zeros. 

On an insert, missing fields are set to their 
initial value if one was specified, otherwise the 
field is set to blanks (alpha) or zeroes 
(decimal) . 
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Decimal values have the format 

"+" 
- digits[-] 

Alpha values have the format 

'characters ' 

No single quotation marks may appear within the 
alpha value. If no character is a space, tab or 
comma then the surrounding quotation marks need 
not be present. 

A command which is too long for one UPDATE command line can be 
continued on the next line. Type a comma at the end of each line to 
be continued. There can be any number of continue lines. 

Example: 

Iu9988773771761 Fl=001122,^ 

F2=' SCREW, #11' ,F3=100,F4=7771777,F5=32 072 

An error in an UPDATE command line causes the line to be ignored and 
an error message is output to the line printer. Execution continues. 



8.3 UPDATE EXAMPLE 

A file called ACCT has a mistake in the zip code of an employee whose 
employee number is 63411. The following control file is prepared: 



0010 


DEFINE 






0020 


F1,A40 




; NAME 


0030 


F2,D5 




; EMPLOYEE NUMBER 


0040 


F3,A30 




; STREET ADDRESS 


0050 


F4,A5 




;ZIP CODE 


0060 


F5,D8 




; SALARY 


0070 


UPDATE 


ACCT 




0080 


INPUT KBD 




0090 


KEY F2 






0100 


OUTPUT 


ACCT 




0110 


END 







This file describes the fields of the file ACCT, specifies that it is 
sorted on field2 (employee number) and says that input commands are 
from the keyboard. No SORT statement is included because only one 
update command is needed and so no sorting is necessary. If more than 
one change is to be made in the file and if the changes are typed with 
their keys not in order then a SORT statement would be necessary. 

The user then types: 

_^RUN UPDATE/IL 

to run passl and get a listing of the control file. 

If no SORT is required, UPDATE asks that the input and output files 
(both named ACCT) be mounted. If a SORT statement had appeared, the 
mount message would have requested the scratch tape $UPD00. (ACCT 
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would not be mounted until pass2) . The single UPDATE command can then 
be typed at the keyboard: 

C 63411 F4=11691 

specifying the new zip code of 11691 for the record whose key is 
63411. All other fields remain the same. The user then types CTRL/Z 
to specify the end of the input from the keyboard. 



8.4 OPERATING PROCEDURES 

UPDATE is called with the Monitor command: 

^RUN UPDATE [,filel,.. . ,file7] [/s(l)s(2)] 

where 

f ilel, . . .f ile7 are the names of the files which contain the 

UPDATE control program (possibly stored in two 
segments, FDR and I/O) and the UPDATE commands (if 
previously stored on the system device) . 

If no files are specified, UPDATE uses the file in 
the edit buffer . 

/s(l)s(2) are switches 

The first switch is 1 or 2 specifying the UPDATE 
phase. 1 - read control program and UPDATE 
commands and check for errors, put in scratch 
area. 2 - read scratch area after sorting and 
perform UPDATE. If neither 1 nor 2 is specified, 
passl is assumed. 

The second switch is 

/N for no listing (default) 

/L for a listing of UPDATE commands, (pass2) or 
control program (passl) . 

If no errors are found in the control program and the UPDATE commands 
are sorted, UPDATE continues automatically to pass2. Otherwise, SORT 
must be used to sort the UPDATE commands into the same order as the 
file. Type RU SORT,UPCON,UPCOM (control program) . SORT asks that 
$UPDOO be mounted. When the SORT is complete, call the second phase 
of UPDATE. For example, 

.RU UPDATE, UPC0N,UPC0M/2 

NOTE 

If the input device specified was KBD, there is no 
indication from UPDATE that it is ready to accept 
input from the keyboard. To terminate input from 
the keyboard, type CTRL/Z. 
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8.5 ERROR MESSAGES 

! indicates a fatal error. 

Message 
BAD DEVICE 



Explanation 

Illegal device specified on input 
statement 



BAD DIGIT IN DECIMAL INITIAL VALUE 

Alpha character in a decimal initial 
value . 



BAD INPUT STMNT 

BAD KEY STMNT 

BAD UPDATE COMMAND 

BAD UPDATE STMNT 
BAD VALUE 

DATA TABLE OVERFLOW! 
DESCRIPTOR TABLE OVERFLOW! 

EXTRA CHARS AT STMNT END 

FIELD NUMBER MISSING OR 
I RECORD ALREADY EXISTS 



Input statement is missing or out of 
order . 

Key in KEY statement has bad syntax. 

Bad syntax, probably missing F, =, or 
comma. 

Update statement is incorrect. 

Value in update command too long or 
incorrect. 

Too much data, maximum = 960 characters. 

Too many F, T and C fields defined, 
maximum = 160. 

Characters other than A or D occurred in 
a data specification statement where A 
or D was expected. 

Field number or default unit number is 
missing or is or > = 512. 

Tried to insert a record already 
present. 



INITIAL ALPHA VALUE DOESN'T BEGIN WITH QUOTE 

Beginning quotation mark missing for 
initial alpha value. 



INITIAL VALUE TOO BIG 



INITIAL VALUE TOO SMALL 



The initial value specified is larger 
than the field size. 

The initial value specified is smaller 
than the field size. 



MISSING CLOSE QUOTE ON ALPHA INITIAL VALUE 

Quotation mark not specified where 
necessary. 



MISSING INITIAL VALUE 



Comma was inserted after type and size 
but initial value was not specified. 



Message 
MISSING OR OUT OF ORDER 

MISSING UNIT 

NO COMMA AFTER FIELD NAME 

NO DEFINE" 

NO END STATEMENT 

NONEXISTENT FIELD 

NOT A OR D 

NOT I,D, OR C 

NOTHING AFTER FIELD NAME 

NUMBER REPEATED OR OUT OF 

OUT OF ORDER 
UNEXPECTED END OF FILE 



Explanation 

On C or D, record was not there. 
Probably because scratch file was not 
sorted . 

Unit number specified is a multiple of 
16. 

No comma or a character other than comma 
was specified after the field name. 

Control file did not start with a 
DEFINE. Returns to Monitor immediately. 

END statement missing after OUTPUT 
specification. 

Tried to update Fn where no Fn appeared 
in file description section. 

A character other than A or D occurred 
in a data specification statement where 
A or D was expected. 

Bad first character on update command. 

Field type and size are not specified 
after field name and comma. 

ORDER 

A field sequence number is used more 
than once or is out of ascending order 
sequence . 

SORT statement missing and update 
commands are not in order . 

Missing END statement. 
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CHAPTER 9 
BOOT 

BOOT is used to bootstrap the system from one device to another, i.e., 
if the system has been moved from DECtape to disk, BOOT may be run to 
start the system on disk. 



9.1 OPERATING PROCEDURES 

The command to run the BOOT program has the form; 

^RUN BOOT/xx 

and the CR key: 

where 

/xx is the switch which indicates the device where the 

system to be bootstrapped resides. 

/RK is the RK08 or RK8E disk unit 0. (COS-300 only) 

/RF is the RF08 disk. (COS-300 only) 

/DT is the TC08 DECtape unit 0. (COS-300 only) 

/TD is the TD8E DECtape unit 0. (COS-300 only) 

/LT is the LINCtape unit 0. (COS-300 only) 

/RX is the RX8E diskette unit (COS-310 only) 

If no switch or an illegal switch is specified, BOOT displays the 
error message NO and control returns to the Monitor. 

Do not try to bootstrap onto a device which is not ready or does not 
exist. 

Other options are available for experienced programmers: 

/PT loads the high-speed RIM loader and BIN paper tape 

loader into field 0. 

/ZE zeroes all of core in field 0. 

BOOT may also be used to bootstrap OS/8 
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CHAPTER 10 
PATCH 



PATCH is used to fix (or patch) system programs or the Monitor on a 
COS system tape. The data to make the changes is provided by Digital 
Equipment Corporation as patches in the form of dialogue with the 
PATCH program with the user input underlined. It would be necessary, 
therefore, to type only the underlined data exactly as shown and to be 
sure that the computer output corresponds with what is illustrated. 
If everything matches, the patch is correctly made. To better 
understand the workings of PATCH, it is important to note that both 
system programs (files) and the Monitor consist of blocks of numerical 
information (program code; machine language instructions) on the 
system device. Each block consists of words of 4-digit numbers. 
These words are numbered from to 377 (base 8). PATCH reads one of 
these blocks, allows user examination and/or change (patch) of 
individual words in this block and writes the new block back out to 
the system device. 



10.1 OPERATING PROCEDURES 

Be sure the system tape has the current version of the program to be 
patched. The command to run the PATCH program is of the form: 

.RU PATCH 
and the CR key. 
PATCH replies: 

COS PATCH SYSTEM VERSION 5.05 (or current version number) 
and 

FILENAME; 
Respond with one of the following: 

(a) The name of the file to be patched. 

(b) /N and/or a carriage return, to indicate a patch for the 
Monitor not for a program. The system responds PATCHING 
MONITOR. 
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(c) CTRL/Z or /X. To indicate end of PATCH operation. The 
message EXIT is printed and control returns to the 
Monitor (just as if CTRL/C had been typed.) 

When typing in letters or digits, a typing mistake can be corrected 
(before typing the CR key) by typing CTRL/U and retyping the entire 
line correctly. 

EXIT Routine 

The next question asked by PATCH is: 

LOCATION : 

If no further patching in block is required, type: 

END 

PATCH now asks: 

BLOCK: 



If no further blocks are to be patched, type: 

END 

PATCH now asks: 

FILENAME : 

If no further patching is required type control/Z 

+ Z 

and exit to Monitor 

NOTE 

If it is discovered at anytime before 
exit routine, that the wrong block 
number was typed, type R (for Restart) 
and PATCH returns to the FILENAME 
Question. Reenter the file name, then 
type the correct BLOCK number and 
continue from there. 

The next PATCH question is: 

BLOCK: 

Type the block number specified on the patch information sheet as sent 
out by DEC. This specifies which BLOCK is to be patched. 

PATCH displays: 

LOCATION: 

Type in the number provided by DEC. This specifies which word in the 
block is to be patched. PATCH responds with: 

OLD VALUE: nnnn 

where nnnn is the four-digit old (current) value of this location. 
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It is very important to verify that this value is the one that DEC 
said it should be. If it is not, do not proceed; something is wrong. 

1. Check that everything previously typed was letter perfect. 
If the wrong BLOCK number was typed, type R and restart at 
FILE NAME. If the wrong LOCATION was typed, type CR key in 
answer to the NEW VALUE: question. This makes no change to 
the location specified. Then type the correct location 
number in answer to the LOCATION question. 

2. If everything typed was correct, perhaps an old version of 
the Monitor or the system program in question is being used. 
Before starting PATCHING, the version of the program in 
question should be verified. 

3. If everything seems correct but the dialogue doesn't agree 
with what DEC predicted, save all output and consult your 
software specialist. 

When the program asks: 

NEW VALUE: 

enter the new value as supplied by DEC. This new value replaces the 
old value in core. The block is not changed on the system device 
until all patches are made to this block. 

If the wrong new value is typed, retype the location, verify that its 
current (old) value is the one typed in by mistake, and then enter its 
new corrected value. 

If a new value is entered for the wrong location, reenter that 
location and as the new value, type its original value (determined by 
looking back on the listing for the OLD VALUE at the time this 
location was first referenced) . If a scope display is used and the 
original value cannot be determined, type R and redo the entire block. 

Answer NEW VALUE: with the CR key or CTRL/Z if the location was just 
examined and no new value is to be entered. 

When all patches to a block are complete, type CTRL/Z or END to the 
LOCATION: question. At this point, PATCH asks for the RELATIVE 
CHECKSUM (similar to a hash total) . Type the relative checksum, as 
supplied to you by DEC. and the CR key. If everything is correct, 
the new corrected block is written on the system device, and the 
message: 

NEW BLOCK PATCHED OK 



is displayed. The question BLOCK: is displayed again to allow 
patching of another block. Type in the next block number in this file 
to be patched or type END or CTRL/Z to terminate patches for the file. 
In the latter case, PATCH displays the message: 

nn BLOCK (S) PATCHED IN THIS FILE 
FILE NAME; 

If an error is detected, the message: 

BAD CHECKSUM 
LOCATION: 
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is displayed and the faulty block is not written to the system device. 
The new block as changed is still in core. Review the numbers typed 
in and possibly examine the locations changed to see if they are 
correct. If the error is found, fix it and then type END or CTRL/Z to 
the LOCATION: message. If an error is not found, type R to restart 
the program and try patching the entire block again. 
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10.2 ERROR MESSAGES 

Message 
BAD CHECKSUM 

BAD DIRECTORY 
BAD NUMBER 

BLOCK TOO BIG 

FILE NOT FOUND 



LOCATION TOO BIG 
NO CHANGE IN BLOCK 



Explanation 

An attempt was made to write a block 
which was incorrectly patched. 

Logical unit was not a system device. 

A number with more than 4 digits, a 
non-digit or containing the digits 8 or 
9 (these are never used) was typed. 

An incorrect block number was typed. It 
cannot be larger than the length of the 
file being patched. 

The program with the name specified was 
not found on the system device. It must 
be there. If it is on another tape, it 
may be mounted on logical unit when 
PATCH first starts up; but thereafter 
DO NOT CHANGE UNITS. 

A location greater than 377 was typed. 

An attempt was made to write a block but 
no changes were made in it. If this was 
on purpose, fine, otherwise make the 
changes to the block again. 
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CHAPTER 11 
DAFT 



The DAFT (Dump and Fix Technique) program is similar in function to an 
editor but is used for data records. DAFT provides the capability to 
search for, examine and change records and to list records or parts of 
records on the line printer or terminal. DAFT may be used to make 
minor changes to a data file. 

DAFT allows one input and one output file to be open at the same time. 
These two files may be the same file when in update mode. At any 
given time, there is a record from the input file in core known as the 
current record. This record may be modified by the CHANGE command 
before it is written on the output file. An output file need not be 
open if records from the input file are only being examined. 



11.1 OPERATING PROCEDURE 

The command to run DAFT has the form: 

^RU DAFT[, filel, ... ,filen] 
and the CR key. 
Where 



f ilel, . . . ,f ilen 



are previously created files which contain a 
string of DAFT commands to be used to dump or fix 
the data file. These files are optional and if 
not specified, commands are entered via the 
terminal. After the last command in the last file 
is executed, additional commands may be entered 
from the keyboard . 



11.2 COMMANDS 

DAFT commands begin with a keyword (consisting of any number of 
non-blank characters, of which only the first one is significant). 
Some commands take arguments, in which case the keyword is followed by 
one or more spaces and the arguments. These arguments may be 
separated from each other by one or more spaces. 



In Table 11-1, an expression in brackets 
optional . 



[ ] indicates that it is 
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The following symbols are used in Table 11-1 to show the form of DAFT 
commands: 

n represents an unsigned non-zero positive integer. 

If it is optional in a command and is omitted, n=l 
is assumed. 



<a,b> 



label 



unit 



data 



represents a key field consisting of character 
positions a through b inclusive, a and b must 
each be unsigned non-zero positive integers and b 
must not be smaller than a. If this is optional 
in a command, and is omitted, the key specified in 
the KEY command is used. 

is a data file name. 

represents an integer in the range 1-15. If this 
is specified, the system looks for the specified 
file on this logical unit before issuing a MOUNT 
message. If given, /unit must immediately follow 
the file name. 

indicates that before a record is read from the 
input file, the current record in core (if there 
is one) is written on the output file. The + sign 
need not have a space before it unless it is the 
only argument. 



represents a piece of data, 
form: 



Alpha data has the 



' characters. . . ' 

and decimal data has the form: 

[-] digits . . . 

Before data is used in executing the command, it 
is adjusted to the same length as the key field. 
If the data is smaller and alpha, it is left 
justified in the field and padded with spaces on 
the right. If it is smaller and decimal, it is 
right justified and padded with zeroes on the 
left. If data is larger and alpha, excess 
characters on the right are ignored. If it is 
larger and decimal, excess characters on the left 
are ignored. 

Table 11-1 
DAFT Command Summary 



Command 


Function 


Advance [n] [+] 


Advances the input file n records. If n 




is omitted, 1 is assumed. 


Backspace [n] 


Backspaces n records if the input file 




was opened with the UPDATE command. If 




n is omitted, 1 is assumed. 
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Table 11-1 
DAFT Command Summary (Con't) 



Command 



Function 



Change [<a,b>] data 



Display [n] 



Exit 
Fini [+] 

Goto n [+] 
Help 

Input label [/unit] 

Key a,b 

List [n] [<a,b>] [+] 



Output label [/unit] 



Put [n] 



Query 



Rewind 



Replaces the data in the current key 
field of the record currently in core 
with the data specified. If the key, 
<a,b>, is used in this command, it 
temporarily overrides the key specified 
by the KEY statement. 

Sets the width of the print line of the 
listing device (terminal or line 
printer) to n characters (maximum 130) . 
If n is omitted, this command turns on 
the grid if it was off and turns it off 
if it was on. 

Returns control to the COS Monitor 
providing no output file is open. 

Closes the output file. If + is 
specified, the current record and the 
remainder of the input file are first 
copied to the output file. 

Makes record n the current record. 

Displays a summary of DAFT commands on 
the terminal. 

Opens the specified file (label) for 
input. The first record is read and 
becomes the current record. 

Sets the current key to character 
positions a through b inclusive. 

Lists on the line printer, n consecutive 
records beginning with the current 
record. The key, <a,b>, if specified, 
represents those consecutive characters 
in the record that are to be considered. 



Opens the specified file 
output . 



label) for 



Writes n copies of the record currently 
in core on the output file. 

Lists information about the current 
status of the program on the terminal. 
This includes the names of the input and 
output files, the units where the files 
are located, the record in core and the 
version number of the DAFT program. 



Rewinds the input file, 
becomes the current record. 



Record 
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Table 11-1 
DAFT Command Summary (Con't) 



Command 



Function 



Search [<a,b>] data [+] 



Type [n] [<a,b>] [+] 



Update label [/unit] 



Version 



Write [n] 



Searches the current record and then 
succeeding records for an occurrence of 
the specified data appearing in the 
current key field. 

Same as list except output is to the 
terminal . 

Opens the specified file (label) for 
updating. This command can only be 
specified for a file with fixed length 
records since direct access I/O is used 
to move records. 



Displays the version number of 
program on the terminal. 



the 



Performs same function as ADVANCE [n] +, 
i.e., n-1 consecutive records, beginning 
with the current record are written on 
the output file. The nth record (after 
the original one) becomes the current 
record . 

Lists the record number and size of the 
current record on the listing device 
(either terminal or line printer 
depending on whether the last record was 
listed via a TYPE or LIST command) . The 
line printer is the initial listing 
device. 



11.3 DAFT ERROR MESSAGES 

Message Explanation 

NOT ALLOWED In some commands, is not a permissable 

argument. 

BAD DIGIT IN DATA In a CHANGE or SEARCH command, a 

character other than digits or a minus 
sign is contained in a numeric data 
field (a field without quotes) . 

CANT BACKSPACE PAST BEGIN OF FILE 

Attempted to backspace past beginning of 
file. The first record becomes the 
current record. 

CANT BACKSPACE WITH SEQUENTIAL INPUT 

Attempted to backspace with sequential 
input. 
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Message 



Explanation 



END OF INPUT FILE AT RECORD nnnn 

An attempt was made to read past the end 
of file mark on the input file. This is 
not necessarily an error, nnnn was the 
last record read. The input file is 
closed . 



EXCESSIVE GRID SIZE 



EXTRA CHARS 



The grid (printer width) may not be 
greater than 130 characters. 



Extra characters were found 
logical end of a command. 



after the 



ILLEGAL RECORD - CLOSING FILE The file being updated contains a bad 

record (one not the same size as record 
1) . Only fixed length records are 
permitted on such files. The file is 
closed . 

KEY ENTIRELY PAST END OF RECORD 

The key specified in a LIST or TYPE 
command began with a character greater 
than the record size. 



KEY EXTENDS PAST RECORD END 



KEY TOO BIG 



A change or search was attempted with a 
key that extends past the end of a 
record. However, a list with such a key 
is possible. In such a case the list is 
terminated at end of record. 

The range of the key cannot exceed 100 
characters,. 



NO DATA 



Data must be specified in 
SEARCH command . 



CHANGE or 



NO INPUT FILE 
NO LABEL NAME 



The command requires an input file but 
one is not open. 

The filnam was omitted in an INPUT, 
OUTPUT or UPDATE command. 



NO OUTPUT FILE 



The command requires an output file but 
one is not open. The command is 
terminated at the point just prior to 
writing the current record on the output 
file. 



OUTPUT FILE ALREADY OPEN 



A request was made to open an output 
file while one was already open. Only 
one output file may be open at a time. 
The request is ignored. 
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Message 



OUTPUT FILE STILL OPEN 



PUSH DOWN OVERFLOW 



Explanation 

An EXIT cannot be made when the output 
file is still open. The output file can 
be closed with the FINI command or 
CTRL/C may be typed. 

The program will abort with this message 
when too many errors are made. 



11.4 DAFT OUTPUT 

Records may be listed with a grid above them. This grid consists of 
two lines of numbers showing the character positions. The lower of 
the two lines represents the units' digits of the column counts. The 
upper line represents the tens digits. The tens digits are printed 
for the first and last character in the record (or part of the record) 
listed or whenever it changes. If there is a hundreds digit, it is 
printed in column 1 or whenever it changes. 

Refer to Figure 11-1 for a sample of a DAFT operation. 



COS MONITOR 2.0606 

. R DAFT 

*4ELP 

ADVANCE ^I+ 

BACKSPACE M 

CHA^JGE <A, E> DATA 

DI SPLA/ M 

EX I T 

FI^I + 

GOTO M+ 

HELP 

I ^]PUT LAPEL/TJMI T 

KE/ A>B 

LI ST ^ <EY + 

OUTPUT LABEL/ U'MI T 

PUT M 

Q UEP./ 

REV.IMD 

SEARCH <A>E> DATA h 

T^PE M <A>P> + 

UPDATE LABEL/UMI T 

VERSION 

WRI TE M 

X 

* VERSI 0>J 

DAFT VERSI OM 6.06 

* V 

DAFT VERSION 6.06 

* VER/ 

DAFT VERSI OM 6.06 
* IMPUT MAILMG 
MOUMT MAILMG #01 
1 

* TYPE 1 



FOR IMFUT: 



Figure 11-1 
DAFT Sample 
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RFCORD 000001 OF FILE MAILMG* EFCORD LEMGT"I = S04 CHARACTERS 

DIGITAL EQUIPME>JT CORP. D. F. PAVI.0CK 
12-3 146 MAI^J ST. 

MAV'NJARD NIA017540S/S- 1 00 12345A 1 1 1 1 1 06P17 

2003SUPERVI SOR 

* DISPLAY 70\ 
*T 1 

RECORD 000001 OF FILE MAILNG> RECORD LEMGTrI = 204 CHARACTERS 

DIGITAL EQUIPMENT CORP. D. F. PAVLOCK 12-3 

146 MAI ^} ST. MAVVARD MAO 17 540S/3- 1 0012345A11 

111 062172003SUPERVI SOR 
*D 

* T 2 

RECORD 000001 OF FILE MAILMG* RECORD LEMGT-i = 204 CHARACTERS 

1 2 3 4 5 6 7 

1 234567890 1234567«?9 01234567«?9 01234567S9 01 23456789 01 2345673 90 1234567S 90 
DIGITAL EQUIPMENT CORP. D. F. PAVLOCK 12-3 

7 3 9 10 1 2 3 4 

1234567390 1234567890 123456739 01 234567390 1 2345673 ?0 12345673 90 1234567390 

146 MAIM ST. MA/MARD MAO 17540S/3- 1 0012345A11 

14 5 6 7 3 5 20 

12345673901234567390123456739 0123456739 012345673 90123456739 0123 
111 062172003SUPERVIS0R 

RECORD 000002 OF FILE MAILMG* RECORD LEMGTH=204 CHARACTERS 

1 2 3 4 5 6 7 

1234567390123456789 0123456739012345673 9012345673 90123456739012345673 90 
DIGITAL EQUIPMENT CORP. K. RICHER 12-3 

7 8 9 10 1 2 3 4 

123456789 0123456739 0123456789 0123456739 012345673 9012345673901234 5678 9 

146 MAIM ST. MAYMARD MA01754C0S 300 0001972T 3 

14 5 6 7 3 9 20 

123456739 01234567890123456789 01234567390123456739 0123456789 0123 
00 053172002WRITER 

* T 2<25* 50> 

RECORD 000002 OF FILE MAILMG* RECORD LEMGTH=204 CHARACTERS 

2 3 4 5 
56789 0123456789 0123456789 

K. RICHER 



Figure 11-1 
DAFT Sample (Cont 
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RECORD 000003 OF FILE MAIL^JG* RECORD LEMGTrI=s204 CrIARACTERS 

8 3 /I 5 

567890 123/J56739 01 23456739 
S. RABI^NJOWITZ 

* D 

* T S 

RECORD 000003 OF FILE MAIL>J6> RECORD LEMGT'I = 204 CHARACTERS 

DIGITAL EQUIPMENT CORP. S. RABIM0WIT2 12-3 

M6 MAIN ST. !^A/?aARD MA01754C0S 300 0059999C12 

345 062178009C0MPILER 
RECORD 00000/1 OF FILE MAILMG* RECORD LEMGTrI = 204 CHARACTERS 

DIGITAL R. LARy 12-3 

146 MAI^J ST MA/MARD MA01754 0000000 

061272999 SORT 

* D 

*KE/ 1,50 ; SET PERMAMEMT <EY 

* T2 

RECORD 000004 OF FILE ^^AIL^IG, RECORD LE^GTH = 204 CHARACTERS 

1 2 3 4 5 

123T56789 01 23456759 01R3456789 01 23456739 01 23456739 
DI GI TAL R. LARf 

* T 2 

RECORD 000004 OF FILE MAILMG* RECORD LE:^GTH = 204 CHARACTERS 

12 3 4 5 

123456789 0123456739 0123456739 01234567390123456739 
DIGITAL R. LARf 

RECORD 000005 OF FILE MAILMG> RECORD LEMGTH = 204 CHARACTERS 

12 3 4 5 

123456739 0123456739 01234567390123456739 01234567890 
DEC S. G. WELLCOME 

* D 

* T 



Figure 11-1 
DRAFT Sample (Cont.) 
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RECORD 000005 OF FILE MAIL>IG* 

DEC S. G« 

* Q 

IMPUT FILES MAIL^JG OPEM 

UMI Ts 00 

OUTPUT FILES />JONJE/ 
UMI TS 00 
?CEy=<001*050> 



RECORD LEMGT^=204 CHARACTERS 
WELLCOME 



RECORD 000005 OF FILE MAILMG> 

DAFT VERSION 6.06 

* K 

* Q 

IMPUT FILES MAILMG OPEM 

UMI TS 00 

OUTPUT FILES /MOME/ 

UMI Ts 00 

KEY=<001^ 510> 

RECORD 000005 OF FILE MAILVG* 



RECORD LEMGH = 203 CiARACTERS 



RECORD LEMGT"I = 2C4 CHARACTERS 



DAFT VERSIOM 6.06 

*B ; SHOULD CAUSE AM ERROR MESSAGE 

CAMT BACKSPACE WITH SEQUEMTIAL IMPUT 



Figure 11-1 
DRAFT Sample (Cont.) 
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CHAPTER 12 
COS-OS/8 CONVERTER 

The COS-OS/8 Converter program, CONVEX, provides the capability to 
convert source or data ASCII files created with OS/8 to COS source or 
data files. COS data files can be converted to OS/8 ASCII files. 

12.1 OPERATING PROCEDURES 

The command to run CONVEX has the form: 

^RUN CONVEX 
and the CR key: 
CONVEX replies with the program version number: 

VERSION 5. 05 (or current version number) 
And the message: 

INPUT MODE- 

Answer with the letter code: 

A (OS/8 ASCII file mode) 
D (COS Data file mode) 

and the CR key. 

It then displays the message: 

FILE NAME- 

The answer has two forms depending on the mode. 

1. For mode A (OS/8 ASCII) type the OS/8 file name (one to six 

characters optionally followed by a period and up to a two 

character extension) followed by a comma and then the device 
name which is one of: 

DTn 
DKn 

where n is a single digit referring to the physical unit # 
(DK0-DK3, DT0-DT7, or RX0-RX5) . If no device is specified, 
CONVEX uses the system device. 
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Examples: 

ABC,DT5 
RICH.TM,DKO 

2. For mode D (COS data) type the COS data file name (one to six 
characters) optionally followed by a slash and the logical 
unit number (1-15). If a logical unit is specified, the 
system first checks that logical unit for the specified file 
before issuing a MOUNT message. 

Examples: 

CUST/5 
LIST/1 
PROSPT 

Illegal: 

CLIENT, DTI 
If everything is ok, the program displays the message: 

OUTPUT MODE - 

Type one of the following one character codes: 

A (OS/8 ASCII file) 
D (COS Data file) 
S (COS Source files) 

The next question is: 
FILE NAME - 

If the option specified was A or D, reply following the rules 
explained in steps 1 and 2. If an existing file is to be destroyed, 
CONVEX asks: 

REPLACE? 

Type Y for YES, N or any other character for NO and the CR key. 

If the option specified was S, type the filename, optional comma and 
COS device e.g. GR0UPA,DT3. 

This device must be physically the same as the system device, i.e., 
tape to tape or disk to disk. 

When the conversion is complete the message: 

INPUT MODE - 

is displayed again and another conversion can be specified. Type 
CTRL/C to return to Monitor. 
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NOTE 



If instead the message: 
OUTPUT MODE - 



is displayed again after successful output has 
occurred (MODE A) , CONVEX needs more space to 
continue. Specify an additional output file. 

NOTE 

OS/8 files are always generated so as to be 
multiples of 16 blocks long. For this and other 
reasons, the resulting OS/8 files may be longer 
than necessary. To recapture the wasted space, 
use OS/8 PIP to copy the file back to itself using 
the /A option. 



12.2 Error Messages 

In some cases, illegal or bad syntax on input causes the question to 
be reasked. 



Other errors generate one of the following: 



Message 
BAD CHAR 



BAD DEV 



BAD DIRECTORY 



FULL 



NO END 



Explanation 



Warning message logg 
to convert an OS/8 
to convert to COS wh 
character set. Ch 
CTRL/Q, etc. Note: 
<, tabs are conver 
of spaces. Vertical 
form feeds, rubout 
Lower case character 
upper case. 



ed for each attempt 
character you tried 

ich is not in COS 

aracters such as ^ , 
_ is translated to 

ted to proper number 
tabs, line feeds, 

s etc. are ignored. 

s are converted to 



Specified an output device with -S 
option and output device was not same 
type physical device as system device, 
e.g. FILE,DK1 when system device is 
DTO. 

Attempted to reference or store a file 
on a device with no directory or a 
directory that has been destroyed. 

Specified an output device with -S 
option and source file being created was 
filled. 

Entire OS/8 ASCII input file has been 
read but no end of file (CTRL/Z) was 
found . 
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Message Explanation 

NO ROOM Directory of output device was full; no 

room for specified output file. 

NONCE ERROR User tried to use a feature not 

currently supported or documented (but 
might be implemented in some future 
release) . 

NOT FOUND File with specified name was not found. 
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CHAPTER 13 
FORMAT PROGRAMS 



There are four format programs provided with the COS package which 
mark disk or DECtape for use with COS. 

These programs are: 

RK8MRK Formats an RK08 disk. 

RKEMRK Formats an RK8E disk. 

TDMARK Formats a DECtape on a TDBE drive. 

DTMARK Formats a DECtape on a TC08 drive. 

These programs are described in detail in diagnostic documents (RK08 
Disk Formatter, DEC-08-D5KB; RK8E Disk Formatter, DEC-08-DHRKD-A-D; 
TD8-E DECtape Formatter, DEC-8E-EUZC-D; TCOl - TU55 DECtape 
Formatter, DEC-08-EUFB-D) provided with the system. The procedures in 
the following paragraphs cover the use of these programs with the COS 
system. 

NOTE 

The Format programs cannot be used when 
the COS 300 Foreground Data Entry 
program is running. 
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RK8MRK 

13.1 RK8MRK 

Mount the system tape or disk and the disk to be formatted. 

13.1.1 Operating Procedure 
The command to run RK8MRK is: 

_j^RUN RK8MRK 
and the CR key. 
RK8MRK replies with the question: 

DRIVE NO.? 

Type the unit number of the RK08 disk to be formatted. Be sure that 
the unit specified is not a good system device since formatting 
destroys the contents of a disk. 

DRIVE NO.? 

RK8MRK displays the question: 

WRITE STANDARD FORMAT? (TYPE "Y" FOR YES) 

Type Y to format the disk for use with COS. Any other reply provides 
a non-standard format which can not be used with COS. 

When formatting is complete RK8MRK displays the messages: 

DISK FORMATTED 
and 

DRIVE NO? 



At this point specify another drive to be formatted or type CTRL/C to 
return to the COS Monitor. 



13.1.2 Error Messages 

All error messages displayed contain the track number and sector 
number where the error occurred. For example: 

TRACK 0104 SECTOR 02 
PARITY ERROR 
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Message 



CONTROL BUSY ERROR 



DATA RATE ERROR 



EXEC WORD ERROR 



FORMAT ERROR 



FORMAT PARITY ERROR 



PARITY ERROR 



SECTOR NO GOOD 

TIME OUT ERROR 
TRACK ADDRESS ERROR 



Explanation 

Disk lOT issued when control was busy 
which would effect operation. 

The processor was busy and did not 
respond to a data break request within 
the 13 micro seconds required. The 
transfer is terminated immediately. 

An error occurred while reading the 
EXEC, word of the sector. 



TRACK CAPACITY EXCEEDED ERROR 



WRITE LOCK ERROR 

Error Recovery 

If the program halts 



An error occurred while reading 
header word. 



the 



A parity error occurred in either the 
Header word or Exec word while reading 
the sector. 

A bit in data, parity or timing has been 
picked up or dropped on read. Transfer 
continues to the end of the sector where 
the error occurred. Word count, current 
address information can be used to 
identify the error. 

The program attempted to read or write 
data on a sector whose header words 
indicated a bad sector. The transfer is 
terminated immediately. 



The control did not complete 
operation after 32 revolutions. 



an 



Track, surface or sector address read 
from the disk did not agree with the 
address count registers or the disk 
drive electronics indicated track 
position 000 and the track counter did 
not agree. The transfer is terminated 
immediately. 



The program attempted to read 
beyond sector 17. 



or write 



The program attempted to write a section 
that was write protected. The write 
operation is terminated immediately. 



with the program counter = 1337 indicating 
non-existent drive or device not adjusted correctly. If CTRL/C does 
not work, restart the COS system. (Refer to Appendix B.) If an error 
reoccurs, the disk may be bad. 
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At the end of each track in which an error occurred on the write and 
read operation the message: 

RE-WRITE TRACK (Y FOR YES)? 

is displayed. Type Y to rewrite the track. 
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RKEMRK 



13.2 RKEMRK 

Mount the system tape and the disk to be formatted. 

13.2.1 Operating Procedure 
The command to run RKEMRK is: 

_j_R RKEMRK 

and the CR key. 

RKEMRK replies with the following: 

RK8E DISK FORMATTER PROGRAM 

FOR ALL QUESTIONS, ANSWER Y FOR YES OR N FOR NO. 

The following questions are asked: 

FORMAT DISK 0? 
FORMAT DISK 1? 
FORMAT DISK 2? 
FORMAT DISK 3? 
ARE YOU SURE? 

After answering Y or N to each of the above questions the disk(s) is 
formatted and the following message is printed: 

RK8E DISK FORMATTER PASS COMPLETE 
FORMAT SAME DISK(S) AGAIN? 

Answer Y or N. At this point each of the FORMAT DISK n? questions 
are printed again. Exit to Monitor by typing CTRL/C or continue 
procedure for formatting disks. 

13.2.2 Error Messages 

The following error messages may be displayed when marking an RK8E 
disk for COS: 

DISK DATA ERROR 
READ STATUS ERROR 
WRITE STATUS ERROR 
RECALIBRATE STATUS ERROR 

After the error header mentioned above is displayed, the terminal will 
print some of the following error information pertaining to the 
failure. 

PC: PROGRAM LOCATION OF FAILURE 

CD: EXPECTED INFORMATION 
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ST: CONTENTS OF THE STATUS REGISTER 

CM: SOFTWARE COMMAND REGISTER 

DA: SOFTWARE CYLINDER, SURFACE, AND SECTOR REGISTER 

AD: ADDRESS OF DATA BREAK 

DT: DATA FOUND DURING DATA BREAK 

After the error information is displayed, the terminal will display 
one of the following questions asking the error recovery desired. 

1. If the error was a recalibrate error, the following question 
will be displayed: 

TRY TO RECALIBRATE SAME DISK AGAIN? 

Typing a Y for yes will result in a repeat of the recalibrate 
sequence on the disk in error. Typing N for no will result 
in progressing to the next available disk. 

2. If the error was a write error, the following question will 
be displayed: 

TRY TO FORMAT SAME CYLINDER AGAIN? 



Typing Y for yes will result in a repeat of the write 
sequence on the current cylinder. Typing N for no will 
result in progressing to the next sequential cylinder. 

If the error was a READ or check error, the following 
question will be displayed: 

TRY TO CHECK SAME CYLINDER AGAIN? 

Typing a Y for yes will result in a repeat in the READ and 
check sequence on the current cylinder . Typing a N for no 
will result in progressing to the next sequential cylinder. 
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13.3 TDMARK 

TDMARK records the timing and mark tracks on a DECtape mounted on the 
TD8E transport. 



13.3.1 Operating Procedures 
The command to run TDMARK is: 

^RUN TDMARK 
and the CR key. TDMARK replies with the question: 

UNIT? 

Before replying to this question, mount the DECtapes to be marked with 
just enough turns on the right hand reel to provide a grip. Make sure 
that no two tape units are set to the same unit number; set the WRITE 
ENABLE/WRITE LOCK switch to WRITE ENABLE and the REMOTE/OFF/LOCAL 
switch to REMOTE. Set the WTM (Write Timing Mark) switch to on (in 
down position). This red switch is located on the upper right hand 
side of Module 868 (printed circuit card with wires) within the 
processor (the black box behind the lights and switches). 

Answer the UNIT question with one or two unit numbers, corresponding 
to the units of the tapes to be marked. For instance, if tapes are 
mounted on units and 1, type: 

1^ 

Spaces are ignored, so it makes no difference if spaces are typed 
between the unit numbers. Only one specification of a unit is 
significant, i.e., typing 000111 has the same effect as typing 01. 
Only tapes on units and 1 may be formatted. If an error is detected 
in the response to this question, the question is repeated. TDMARK 
replies with: 

FORMAT? 



Type MARK and the CR key and the program assumes 201 words 2702 blocks 
(standard PDP-8 format) . Any other reply produces a format which is 
not compatible with COS. 

TDMARK displays the message: 

0201 WORDS, 2702 BLOCKS. OK? (YES OR NO) 

If NO is typed, the program reverts to the FORMAT? question. If YES, 
the program displays: 

SET SWITCH TO WTM 



Type the CR key and if the switch is set, the tape on the first unit 
specified begins to move. 
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Once all of the tapes specified have been marked, the message: 

SET SWITCH TO OFF 

is displayed. Reset the WTM switch to normal (up position) and type 
the CR key to start the second pass. Note that during the second pass 
with multiple DECtape units, as soon as one tape stops, the next tape 
starts; the first tape is completed and may be replaced with a fresh 
tape in preparation for formatting additional tapes. When formatting 
is completed, the message: 

FORMAT 

is displayed. Typing SAME and the CR key repeats the entire process 
with the same format. The new DECtapes must be mounted and ready 
before the CR key is typed in response to the SET SWITCH TO WTM 
message. When all tapes are formatted, type CTRL/C to return to the 
COS monitor. 

13.3.2 Error Messages 

The following error messages may be displayed when marking a tape for 
COS. 

Error messages for response to SET SWITCH TO WTM: 

Message Explanation 

SETUP Indicates an error in the DECtape setup. 

One of the units specified is in WRITE 
LOCK position, not selected, or the 
write flip-flop is unable to be set, or 
there may be a timing error. (After 
UNIT message is displayed.) 

SWITCH NOT SET TO WTM OR SINGLE LINE FLAG FAILED TO SET. SET 
SWITCH TO WTM. 

Indicates the switch on the M868 module 
is not set to the WTM position or the 
timing generator for writing the mark 
and timing tracks is not setting the 
single line flag. 

If the switch was not set to WTM 
position, set the switch and type the CR 
key. 

If the switch was set to WTM position 
and this error occurred, try again or 
examine the timing generator circuit. 

Error messages for marking and verifying a tape: 

BLOCK NUMBER ERROR PHASE n 
CHECKSUM ERROR PHASE n 
DATA ERROR PHASE n 
MARK TRACK ERROR PHASE n 
TIMING ERROR PHASE n 
WRITE ERROR PHASE n 



PC 


xxxx 


PC 


xxxx 


PC 


xxxx 


PC 


xxxx 


PC 


xxxx 


PC 


xxxx 
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where xxxx equals the program counter (PC) at the time of the failure, 
n equals the pass in which the error occurred. (See Recovery.) 

Recovery: 

Although an error should cause doubt concerning the entire process, a 
restart may be made (except in phase 0) by typing RETRY . RETRY 
causes the program to go back to phase 1. Type RESTART to return to 
the UNIT? question. 

Phase 0: Write timing and mark track forward. 

Phase 1: Reads mark track reverse. 

Phase 2: Write data, forward block and reverse block 

numbers forward and writes the checksums. 
Phase 3: Displays block numbers in AC (accumulator) 

reverse . 

Phase 4: Reads data, forward block and reverse block 

numbers forward and calculates the checksum. 

Phase 5: Reads reverse block numbers in reverse. 

The entire program may be restarted at 0200 any time. 
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13.4 DTMARK 



DTMARK records the required timing and mark tracks on a DECtape 
mounted on the TC01-TU55 DECtape unit. Up to eight DECtapes may be 
formatted at a time, assuming the system has eight tape transports. 



13.4.1 Operating Procedures 
The command to run DTMARK is: 

_iRUN DTMARK 
and the CR key. DTMARK replies with: 

DTA? 

Mount the DECtapes to be marked on the tape transports, with just 
enough turns of tape on the right hand reel of each transport to 
provide a grip. Make sure that no two tape units are set to the same 
unit number. Set the WRTM (WRite Timing Mark) switch located on the 
hardware frame to the down position (on) . Set the WRITE ENABLE/WRITE 
LOCK switch to WRITE ENABLE and the REMOTE/OFF/LOCAL switch to REMOTE. 

Reply to the DTA? question with a unit number or series of unit 
numbers, corresponding to the DECtape units where the tapes are 
mounted. For instance, if tapes are mounted on units 2 and 3, type 
2 3 and the CR key. Spaces are ignored, so it makes no difference if 
spaces are typed between the unit numbers. 

Only one specification of a unit is significant, i.e., typing 2 2 3 3^ 
has the same effect as typing 2 3^. 

The program displays: 

DIRECT? 

Type MARK and the CR key to format the DECtape for use with COS. Any 
other reply causes a format which is incompatible with COS. (Refer to 
TC01-TU55 DECtape Formatter Writeup.) The program assumes 201(8) 
words, 2702(8) blocks (standard PDP-8 format) and displays the 
message : 

0201 WORDS, 2702 BLOCKS. OK? (YES OR NO) 

If a NO^ is typed, the program reverts to the DIRECT? question. If 
YES^, the tape on the first unit specified begins to move. 

Once all of the tapes specified have been marked, the message: 

SET SWITCH TO NORMAL 

is displayed. Return the WRTM switch to normal (up position) and type 
the CR key to start the second pass. Note that during the second pass 
with multiple DECtape units, as soon as one tape stops, the next tape 
starts. The first tape is completed and may be replaced with a fresh 
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tape in preparation for rerunning the program to format additional 
tapes. 

When DTMARK has formatted the tapes specified, the message: 

DIRECT? 

is displayed again. Type SAME and the CR key to repeat the entire 
process with the same format. The new DECtapes must be mounted and 
ready before SAME^ is typed. (0 means DECtape unit 8). 

When all tapes are formatted, type CTRL/C to return to the COS 
Monitor . 



13.4.2 Error Messages 

Errors typed in response to the DTA? and DIRECT? questions cause a 
return to DTA? or DIRECT? respectively. 

Error messages for response to OK? (YES OR NO) : 

Message Explanation 

SETUP? Indicates an error in the DECtape setup, unit in 
WRITE LOCK position, nonselectable unit or switch 
not in WRTM position. After display of this 
message, the DTA? question is displayed. 

Error messages which may occur during marking and verifying a tape: 

xxxx SHOULD BE yyyy BLK ERROR PHASE n 
xxxx SHOULD BE yyyy DATA ERROR PHASE n 
END TAPE ERROR PHASE n 
LAST INT NOT END ZONE 
MARK TRACK ERROR PHASE n 
PARITY ERROR PHASE n 
SELECT ERROR PHASE n 
TIMING ERROR PHASE n 

Recovery from error messages: 

Although an error should cause doubt concerning the entire process, 

restarts may be made (except when in phase 0) , by typing RETRY and the 

CR key. RETRY causes the program to return to PHASE 1. Type RESTART 

and the CR key to return to the DTA? question. 



PHASE 
PHASE 1 
PHASE 2 



Mark track write. 

Writing last reverse block number forward. 

Writing block numbers and data in reverse. 



PHASE 3. Reading and checking block numbers and data. 

If it is necessary to restart the DTMARK program, type CTRL/C to 
return to the COS Monitor then type RUN DTMARK. 

If CTRL/C does not work, rebootstrap the COS system (refer to Appendix 
B) and then call DTMARK. 
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CHAPTER 14 
CREF 



CREF (Cross REFerence) is a utility program. Primarily an aid to 
program development, it provides an alphabetical listing of all 
symbols used in a DIBOL program, along with the line number where each 
symbol is defined and all the line numbers where each symbol is used. 

CREF requires 8K of core and can handle any reasonable 8K program. If 
12K of core is available CREF expands its tables to make use of the 
extra space. CREF expects the source program to be free from errors. 
Only a very minimal amount of error checking is preformed by CREF and 
no attempt should be made to CREF programs with compilation errors. 
If CREF finds a line it cannot handle it will print: 

xxxx IS BEING IGNORED 



where xxxx is a line number. 

For an example of CREF operation, consider the listing in Figure 14-1. 
It is a short program that computes the square roots of numbers from 1 
to 99. (Output of program is shown in Figure 14-3.) Its CREF table. 
Figure 14-2, illustrates the basic functions of CREF. 

The columns of the CREF Table are: 

NAME Name of the symbol . 

DEF Line number of program where symbol is 

defined . 

REFERENCES Line numbers of program where symbol is 
referenced . 



14.1 OPERATING PROCEDURES 
Type: 

_^RUN CREF[,filel,file2,. 
and the CR key. 



.] 
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where 

f ilel,f ile2, . . . are the parts of a DIBOL program, just as 

in running COMP (maximum 7) . If no files 
are specified, the Editor scratch area is 
used . 

CREF reads the DIBOL program, produces its table on the line printer 
and returns control to the COS Monitor. 
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COS DIBOL 


OJ 


.-MAR- 7 3 


THUR 






DATA DIVISION 1 


0010 






START 


; S ' 


0020 










0030 






RECORD 


PRINT 


0040 


A, 




A15 




0050 


s. 




A15 




0060 










0070 






RECORD 




0080 


X, 




D15 




0090 


SQRTX, 


D15 




0100 


TEMPX, 


D15 




0110 


N, 




D3,001 




0120 











COMPILATION LISTING Vl2:28 PAGE 01 

SQUARE ROOT SUBROUTINE 

QUARE ROOT SUBROUTINE 



Figure 14-1 
Square Root Subroutine 
(Sheet 1 of 3) 
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COS DIBOL Ol-MAR-73 THUR COMPILATION LISTING 
PROCEDURE DIVISION 



V12:28 PAGE 02 



0130 
0140 
0150 
0160 
0170 
0180 
0190 
0200 
0210 
0220 
0230 
0240 
0250 
0260 
0270 
0280 
0290 
0300 



PROC 1 



LOOP, 



INIT(1,LPT) 

X=N*1000000 

CALL SQRT 

A=N 

S = SQRTX, 'XXX. XXX' 

INCR N 

XMIT (IMPRINT) 

IF (N.LE.99) GOTO LOOP 

STOP 



SQRT, TEMPX=X/2 ; TRIAL VALUE 

SQLOOP, SQRTX=(TEMPX+(X/TEMPX))/2 ; NEWTON'S METHOD 

IF(SQRTX-TEMPX .EQ. 0) RETURN 

TEMPX=SQRTX 

GOTO SQLOOP 
END 



Figure 14-1 
Square Root Subroutine 
(Sheet 2 of 3) 
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COS DIBOL Ol-MAR-73 THUR 
# NAME TYPE 



STORAGE MAP LISTING 
DIM SIZE ORIGIN 



V12:28 PAGE 03 



0001 


PRINT 


RECORD 


01 


32 


20000 


0002 


A 


ALPHA 


01 


15 


20002 


0003 


S 


ALPHA 


01 


15 


20021 


0004 


X 


DECMAL 


01 


15 


20042 


0005 


SQRTX 


DECMAL 


01 


15 


20061 


0006 


TEMPX 


DECMAL 


01 


15 


20100 


0007 


N 


DECMAL 


01 


03 


20117 


0010 


..1 


DECMAL 


01 


01 


20122 


0011 


LOOP 


LABEL 


00 


01 


10071 


0012 


..1000 


DECMAL 


01 


07 


20123 


0013 


SQRT 


LABEL 


00 


01 


10132 


0014 


. . XXX . 


ALPHA 


01 


07 


20132 


0015 


..99 


DECMAL 


01 


02 


20141 


0016 


..2 


DECMAL 


01 


01 


20143 


0017 


SQLOOP 


LABEL 


00 


01 


10141 


0020 


..0 


DECMAL 


01 


01 


20144 



0016 SYMBOLS 

NO ERRORS DETECTED. 08 K CORE REQUIRED [3940 FREE LOCS = 14 BUFFERS] 



Figure 14-1 

Square Root Subroutine 

(Sheet 3 of 3) 
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COS300 


CREF 


SYMBOL 


DEF 


A 


40 


LOOP 


160 


N 


110 


PRINT 


30 


S 


50 


SQLOOP 


260 


SQRT 


250 


SQRTX 


90 


TEMPX 


100 


X 


80 



VI 1.08 THUR Ol-MAR-73 PAGE 1 

REFERENCES 



180 








220 








160 


180 


200 


220 


210 








190 








290 








170 








190 


260 


270 


280 


250 


260 


260 


270 


160 


250 


260 





280 



Figure 14-2 
CREF of Square Root Subroutine 
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1 


1.000 


2 


1.414 


3 


1.732 


4 


2.000 


5 


2.236 


6 


2.449 


7 


2.645 


8 


2.828 


9 


3.000 


10 


3.162 


11 


3.316 


12 


3.464 


13 


3.605 


14 


3.741 


15 


3.872 


16 


4.000 


17 


4.123 


18 


4.242 


19 


4.358 


20 


4.472 


21 


4.582 


22 


4.690 


23 


4.795 


24 


4.898 


25 


5.000 


26 


5.099 


27 


5.196 


28 


5.291 


29 


5.385 


30 


5.477 


31 


5.567 


32 


5.656 


33 


5.744 


34 


5.830 


35 


5.916 


36 


6.000 


37 


6.082 


38 


6.164 


39 


6.244 


40 


6.324 


41 


6.403 


42 


6.480 


43 


6.557 


44 


6.633 


45 


6.708 


46 


6.782 


47 


6.855 


48 


6.928 


49 


7.000 


50 


7.071 


51 


7.141 


52 


7.211 


53 


7.280 


54 


7.348 


55 


7.416 



Figure 14-3 
Output of Square Root Subroutine 
(Sheet 1 of 2) 
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56 


7.483 


57 


7.549 


58 


7.615 


59 


7.681 


60 


7.745 


61 


7.810 


62 


7.874 


63 


7.937 


64 


8.000 


65 


8.062 


66 


8.124 


67 


8.185 


68 


8.246 


69 


8.306 


70 


8.366 


71 


8.426 


72 


8.485 


73 


8.544 


74 


8.602 


75 


8.660 


76 


8.717 


77 


8.774 


78 


8.831 


79 


8.888 


80 


8.944 


81 


9.000 


82 


9.055 


83 


9.110 


84 


9.165 


85 


9.219 


86 


9.273 


87 


9.327 


88 


9.380 


89 


9.433 


90 


9.486 


91 


9.539 


92 


9.591 


93 


9.643 


94 


9.695 


95 


9.746 


96 


9.797 


97 


9.848 


98 


9.899 


99 


9.949 



Figure 14-3 
Output of Square Root Subroutine 
(Sheet 2 of 2) 
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14.2 ERROR MESSAGES 

Although CREF expects the source to be error free, certain types of 
errors are detected. 

xxxx IS BEING IGNORED CREF has encountered a line it cannot 

interpret. 

In addition to the above message, CREF prints an informative message: 

SYMBOLS DEFINED BUT NOT REFERENCED; XX 

Symbols were found that were defined but 
not referenced by the program. 
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CHAPTER 15 
PRINT 



PRINT is a utility program that considerably eases the creation of 
report programs. Using a parameter file which describes the report, 
PRINT generates a DIBOL program which will produce that report. 

PRINT is actually two programs. The first program reads and validates 
the parameters while creating core table entries. If no parameter 
errors are detected, the second phase is entered which produces the 
DIBOL report program. The programs which generate the coding for the 
report require 12K words of memory. However, execution of the 
resulting program requires 8K words. 



15.1 DESCRIPTION OF THE PARAMETER FILE 
THE PARAMETER FILE has six sections: 

IDENT - to identify the program and author 

HEADl - to provide page headings for 

HEAD2 the report 

INPUT - to describe the input file 

COMPUTE - to describe any computation to be done 

PRINT - to describe the report column headings 

END - an optional directive at the end of the parameter file 

Each of these sections is described below. 

Optional clauses are surrounded by parentheses. 



15.1.1 IDENT 
The syntax is: 

IDENT program [/u] [, author] 
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where: 

program is the name of the generated program 

1-6 characters 
u is a logical unit onto which the program is 

wr itten 
author any text from 1 to 24 characters 

Example: 

0010 IDENT TEST41/14, JOHN DOE 



15.1.2 HEADl and HEAD2 

HEADl is the first heading line on each page. HEAD2 is the second 
line. HEADl and HEAD2 are both optional. The only difference is that 
HEADl information will be expanded if space permits by inserting a 
space between each character. 

The syntax is: 

[HEADl 'text'] 

[HEAD2 'text'] 

Where text is a string of any characters for the DIBOL set, exclusive 
of single quotes up to 132 characters. 

There may be more than one HEADl or HEAD2 line. If this is the case, 
the individual texts are linked together. 



Example: 



0020 HEADl 'ACCUMULATION, COMPUTATION, AND SUMMARY RESULTS' 
0030 HEAD2 'TEST RESULTS FOR AUGUST, 1973' 



15.1.3 INPUT 

The INPUT section consists of the INPUT statement on one line, 
followed by separate lines describing the fields of the input record 



The 
whe 


syntax 

re: 

file 

u 

S 


is : 
INPUT 



[file [/u] [,S]] 



is the name of the file to be used as input 
is the logical unit on which the file resides 
is included if the report is to be summarized, 
instead of detailed 

If the file name is not included, the generated program will request 
it when the report is run. 
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The syntax of the field description is: 

A 
[name], - n [ .m] [,Lr [P]] 
D 

where: 

name is the name of the field 

A is alpha or decimal field type 

D 

n is the size of the field, expressed in characters 

m is the number of the decimal places in the field, and is 
valid only for decimal fields 

Lr is used only for the break fields (a break field is used in 
conjuction with accumulate to print totals); r is a single 
digit expressing the relative importance of the field, with 
1 being least important and 9 being most important; when 
totals are printed for a more important break, totals for 
all lesser breaks will also be printed. 

P means that the report will start a new page after the totals 
for this break are printed. 

The maximum number of fields in 20. 

Example : 

0040 INPUT TESTD/5,S 
0050 ABLE A5,L1 
0060 BAKER, D4 
0070 CHARLI,D5.2,L2 



15.1.4 COMPUTE 

This optional section starts with a line containing only: 

[COMPUTE] 
On succeeding lines appear DIBOL statements of the form: 

name = expression 

where : 

name is the name of a result field, and must not duplicate any 
input field name, nor any previous computation result 
name. 

expression 

is any valid DIBOL expression. It may be a single alpha 
field or literal, or any decimal expression. 

It is important to note that PRINT, unlike DIBOL, notes the number of 
decimal places. It will not allow syntax of the form: 

expr 1 + expr 2 

unless expr 1 and expr2 have an equal number of decimal places. 
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To determine the number of decimal places of any expression, use the 
following rules: 

a. expr 1 + expr 2 

No change in number of decimal places. The resultant 
expression will have the same number of places as expr 1 and 
expr 2 . 

b. expr 1 - expr 2 
(same as a) 

c. expr 1 * expr 2 

The number of decimal places in the resultant expression is 
the sum of the decimal places in expr 1 and expr 2. 

d. expr 1/expr 2 

The number of decimal places in the resultant expression is 
the difference in decimal places between expr 1 and expr 2. 

To adjust the number of decimal places of any expression, multiply by 
the constant 1. For example, expr 1 has 2 places, and expr 2 no 
places, then 

expr 1 * expr 2 * 1.00 

has four decimal places. 

Note that PRINT allows decimal places in decimal constants. 



15.1.5 PRINT 

The PRINT section begins with a line containing only: 

PRINT 

followed by lines describing up to 12 fields to be printed. The 
syntax of these descriptions is: 

name, 'text' [ ,A] [, picture] 

Where : 

name is the name of the field, and must be either an input 
field or the result of a computation 

text is a string of characters from the DIBOL set, exculsive of 
single quote. This text is used as the heading of the 
individual columns, and in the total lines for break 
fields 

A is present only if the field is to be accumulated, and the 
sum to be printed in total lines. The field must not be 
alpha 
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picture 

is a string of text equivalent to the DIBOL format field, 
and is valid only for decimal fields. If the picture is 
not included, PRINT will create one using the description 
of the field (if this is an accumulated field, two extra 
places will be assumed) . That created picture will be of 
the form 

XX, XXX. XX- 

with appropriate number of decimal and integer places. 

The text used for titles may be several words separated by asterisks. 
This will cause each word to be centered over a column, in separate 
lines. For example: 

GPAY, ' GROSS *PAY' 

will cause 

GROSS 
PAY 

to be placed over the GPAY column. If GPAY is also a break field, 
then: 

GROSS PAY TOTAL 
will be used on the total line, instead of GROSS*PAY TOTAL. 
The field descriptor lines may also be of the form: 

,An 

Where n is the size of the field. This will produce n blank columns 
in the report. 

If any two field descriptors are not separated by a filler (An) 
descriptor, then two blank columns will separate the fields in the 
report. 

Example: 

0080 PRINT 

0090 ABLE, 'ABLE' 

0100 CHARLI, 'CHARLIE' 

0110 BAKER, 'BAKER', A 

0120 

0130 END 



15.1.6 

The END directive is optional, and consists of a line containing only 
the word: 

END 
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15.2 OPERATING INSTRUCTIONS 



15.2.1 Parameter File 



Using the editor commands, create the parameter file and write it out 
as a source file. 



15.2.2 PRINT 

Run PRINT using the command: 

RUN PRINTA + PRINTB, file/xy 
where : 

file is the name of the source (parameter) file which was 

just written out 
X is a switch which determines whether the parameter file 

is to be listed; N means no list, L means list 
y is a switch which determines whether the DIBOL program 

(data file) created by running PRINT is to be listed; 

N means no list, L means list. 

If X and y are both N, the switches and their preceding slash may be 
omitted. The output from this operation is a data file which must be 
converted to a source file (see Section 15.2.3). 



15.2.3 CONVEX 

Run CONVEX (see Chapter 12 of the COS 300 SYSTEM REFERENCE MANUAL) to 
create a source file from the data file written by PRINT. Printouts 
by CONVEX are underlined, operator response is not; user input must 
be terminated with a carriage return. 

.RUN CONVEX 

VERSION 3.07 

INPUT MODE- D 

FILE NAME- $RPG/u where us is the logical unit 

OUTPUT MODE- S 

FILE NAME- program 

Program is any name desired, but is probably the same name as used in 
the IDENT line of the parameter file, i.e., 

TEST4A 

When CONVEX asks for INPUT MODE again, type CTRL/C to get back to the 
Monitor . 
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15.2.4 Compilation 
Compile the program 

.RUN COMP, TEST4A 
.SAVE TEST4A 

15.2.5 Program Execution 
Run the report program: 

.RUN TEST4A 

15.3 TEST CASES 

Assume the following data file for all examples in Section 15.3. 
There are three fields and 121 records. If the file were dumped, it 
would contain: 



AOOOl 


0191 


12346 


AOOOl 


0133 


12346 


AOOOl 


0256 


12346 


AOOOl 


0049 


12346 


AOOOl 


0241 


12346 


AOOOl 


0384 


12346 


AOOOl 


0283 


12346 


AOOOl 


0184 


12346 


AOOOl 


0100 


12346 


A0002 


0030 


12346 


A0002 


0147 


12346 


A0003 


0376 


12346 


A0003 


0241 


12346 


A0003 


0386 


12346 


A0003 


0290 


12346 


A0003 


0222 


12346 


A0003 


0287 


12346 


A0003 


0207 


12346 


A0003 


0215 


12346 


A0004 


0040 


12346 


A0004 


0196 


12346 


A0004 


0159 


12346 


A0004 


0386 


12346 


A0004 


0289 


12346 


A0004 


0217 


12346 


A0005 


0082 


12346 


A0005 


0409 


12346 


A0005 


0403 


12346 


A0005 


0377 


12346 


A0005 


0247 


12346 


A0005 


0007 


12346 


A0006 


0153 


12346 


A0007 


0129 


12346 


A0007 


0235 


12346 


A0007 


0355 


12346 


A0007 


0138 


12346 


A0007 


0278 


12346 
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A0007 


0159 


12346 


A0007 


0382 


12346 


A0007 


0269 


12346 


AOOOl 


0038 


12347 


AOOOl 


0188 


12347 


AOOOl 


0117 


12347 


AOOOl 


0173 


12347 


AOOOl 


0304 


12348 


AOOOl 


0292 


12348 


AOOOl 


0231 


12348 


AOOOl 


0332 


12348 


AOOOl 


0023 


12348 


A0002 


0149 


12348 


A0002 


0332 


12348 


A0003 


0107 


12348 


A0004 


0207 


12348 


A0004 


0215 


12348 


A0004 


0256 


12348 


AOOOl 


0063 


12349 


AOOOl 


0211 


12349 


AOOOl 


0325 


12349 


AOOOl 


0396 


12349 


AOOOl 


0339 


12349 


AOOOl 


0055 


12349 


A0002 


0130 


12349 


A0002 


0239 


12349 


A0002 


0375 


12349 


A0002 


0238 


12349 


A0002 


0368 


12349 


A0002 


0203 


12349 


A0003 


0146 


12349 


A0003 


0321 


12349 


A0003 


0374 


12349 


A0003 


0229 


12349 


A0004 


0387 


12349 


A0004 


0296 


12349 


A0004 


0252 


12349 


A0004 


0028 


12349 


A0004 


0139 


12349 


A0004 


0281 


12349 


A0004 


0176 


12349 


A0004 


0060 


12349 


A0005 


0258 


12349 


A0005 


0058 


12349 


A0005 


0289 


12349 


A0005 


0213 


12349 


A0005 


0242 


12340 


A0005 


0391 


12349 


A0005 


0318 


12349 


AOOOl 


0370 


12350 


AOOOl 


0212 


12350 


AOOOl 


0238 


12350 


A0002 


0218 


12350 


A0002 


0268 


12350 


A0002 


0112 


12350 


A0002 


0149 


12350 


A0002 


0335 


12350 


A0002 


0034 


12350 


A0002 


0170 


12350 


A0002 


0027 


12350 


A0002 


0133 


12350 
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A0003 


0026 


12350 


A0003 


0129 


12350 


A0003 


0231 


12350 


A0003 


0335 


12350 


A0003 


0038 


12350 


A0003 


0187 


12350 


A0004 


0161 


12350 


A0004 


0392 


12350 


A0005 


0379 


12350 


A0005 


0256 


12350 


A0005 


0052 


12350 


A0005 


0256 


12350 


A0005 


0050 


12350 


A0005 


0249 


12350 


A0005 


0013 


12350 


A0005 


0061 


12350 


AOOOl 


0196 


12351 


AOOOl 


0157 


12351 


AOOOl 


0376 


12351 


AOOOl 


0239 


12351 


AOOOl 


0376 


12351 


AOOOl 


0240 


12351 


AOOOl 


0381 


12351 


1 Exa 


imple 1 





15.3.1 

To list each record of this file without any of the special features 
of PRINT other than page headings, the following control program can 
be used : 



0010 IDENT 

0020 HEADl 

0030 HEAD2 

0040 INPUT 

0050 

0060 

0070 

0080 

0090 PRINT 

0100 

0110 

0120 



TEST1/2,J0HN SMITH 
'NO ACCUMULATE' 
'NO SUMMARY, NO BREAKS 
TESTD/1 

ABLE,A5 

BAKER, D4 

CHARLI,D5.2 



ABLE, 'ABLE ' 
BAKER, 'BAKER' 
CHARLI, 'CHARLIE' 



Follow the instructions in Section 15.2, then test the DIBOL 
The report is shown below: 



program 



TEST 9/13/73 PAGE 

NO ACCUMULATE 
NO SUMMARY, NO BREAKS 



ABLE BAKER CHARLIE 



AOOOl 101 
AOOOl 133 
AOOOl 256 
AOOOl 49 
AOOOl 241 
AOOOl 384 
AOOOl 283 
AOOOl 184 
AOOOl 100 
A0002 30 



123.46 
123.46 
123.46 
123.46 
123.46 
123.46 
123.46 
123.46 
123.46 
123.46 
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A0002 


147 


123, 


.46 


A0003 


376 


123. 


.46 


A0003 


241 


123, 


.46 


A0003 


386 


123. 


,46 


A0003 


290 


123. 


,46 


A0003 


222 


123. 


,46 


A0003 


287 


123. 


.46 


A0003 


207 


123. 


.46 


A0003 


215 


123. 


.46 


A0004 


40 


123. 


.46 


A0004 


196 


123. 


.46 


A0004 


159 


123. 


.46 


A0004 


386 


123. 


.46 


A0004 


289 


123. 


.46 


A0004 


217 


123. 


.46 


A0005 


82 


123. 


.46 


A0005 


409 


123. 


.46 


A0005 


403 


123. 


.46 


A0005 


377 


123. 


.46 


A0005 


247 


123, 


.46 


A0005 


7 


123, 


.46 


A0006 


153 


123. 


.46 


A0007 


129 


123. 


.46 


A0007 


235 


123. 


.46 


A0007 


355 


123. 


.46 


A0007 


138 


123. 


.46 


A0007 


278 


123. 


.46 


A0007 


159 


123. 


.46 


A0007 


382 


123. 


.46 


A0007 


269 


123. 


.46 


AOOOl 


38 


123. 


,47 


AOOOl 


188 


123. 


,47 


AOOOl 


117 


123. 


47 


AOOOl 


173 


123. 


47 


AOOOl 


304 


123. 


48 


AOOOl 


292 


123. 


48 


AOOOl 


231 


123. 


48 


AOOOl 


332 


123. 


,48 


AOOOl 


23 


123. 


,48 


A0002 


149 


123. 


,48 


A0002 


332 


123. 


,48 


A0003 


107 


123. 


,48 


A0004 


207 


123. 


,48 


A0004 


215 


123. 


,48 



TESTl 9/13/73 PAGE 

NO ACCUMULATE 
NO SUMMARY, NO BREAKS 

ABLE BAKER CHARLIE 



A0004 


256 


123. 


.48 


AOOOl 


63 


123. 


.49 


AOOOl 


311 


123. 


.49 


AOOOl 


325 


123. 


.49 


AOOOl 


396 


123. 


.49 


AOOOl 


339 


123. 


.49 


AOOOl 


55 


123. 


,49 


A0002 


130 


123. 


.49 


A0002 


239 


123. 


,49 


A0002 


375 


123. 


.49 
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A0002 


238 


123, 


.49 


A0002 


368 


123. 


.49 


A0002 


203 


123. 


.49 


A0003 


146 


123. 


.49 


A0003 


321 


123. 


.49 


A0003 


374 


123. 


.49 


A0003 


229 


123. 


.49 


A0004 


387 


123. 


.49 


A0004 


296 


123. 


.49 


A0004 


252 


123. 


.49 


A0004 


28 


123. 


.49 


A0004 


139 


123. 


.49 


A0004 


281 


123. 


.49 


A0004 


176 


123. 


.49 


A0004 


60 


123. 


.49 


A0005 


258 


123. 


.49 


A0005 


58 


123. 


.49 


A0005 


289 


123. 


.49 


A0005 


213 


123. 


.49 


A0005 


242 


123. 


.49 


A0005 


391 


123. 


.49 


A0005 


318 


123. 


.49 


AOOOl 


370 


123. 


.50 


AOOOl 


212 


123. 


.50 


AOOOl 


238 


123. 


,50 


A0002 


218 


123. 


.50 


A0002 


268 


123. 


.50 


A0002 


112 


123. 


.50 


A0002 


149 


123. 


.50 


A0002 


335 


123. 


.50 


A0002 


34 


123. 


.50 


A0002 


170 


123. 


.50 


A0002 


27 


123. 


,50 


A0002 


133 


123. 


,50 


A0002 


26 


123. 


,50 


A0003 


129 


123. 


,50 


A0003 


231 


123. 


,50 


A0003 


335 


123. 


,50 


A0003 


38 


123. 


.50 


A0003 


187 


123. 


.50 


A0004 


161 


123. 


.50 


A0004 


392 


123. 


.50 


A0005 


379 


123. 


.50 


A0005 


256 


123. 


.50 



TESTl 9/13/73 PAGE 

NO ACCUMULATE 
NO SUMMARY, NO BREAKS 

ABLE BAKER CHARLIE 



A0005 


52 


123. 


.50 


A0005 


256 


123. 


.50 


A0005 


50 


123. 


.50 


A0005 


249 


123. 


.50 


A0005 


13 


123. 


,50 


A0005 


61 


123. 


.50 


AOOOl 


196 


123. 


.51 


AOOOl 


157 


123. 


,51 


AOOOl 


376 


123. 


,51 


AOOOl 


239 


123. 


,51 
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AOOOl 376 123.51 
AOOOl 240 123.51 
AOOOl 381 123.51 



15.3.2 Example 2 

Assume that the following listing is desired: 

o Print the fields in the following order: third, first, 

second 
o Put additional spacing between fields, 
o Accumulate totals for the second field and print the total 

whenever the first or third field changes, 
o When the third field changes, skip to a new page. 

These features may be obtained by the following statements: 

0100 IDENT TEST2,J0HN DOE 

0110 HEADl 'ACCUMULATE' 

0120 HEAD2 'NO SUMMARY,' 

0125 HEAD2 'NO BREAKS' 

0130 INPUT TESTD 

0140 ABLE,A5, Ll 

0150 BAKER, D4 

0160 CHARLI,D5.2,L2P 

0170 

0180 PRINT 

0190 CHARLI, 'CHARLIE' 

0200 ,A5 

0210 ABLE, 'ABLE, ' ABLE*TWO-LINE ' 

0220 ,A5 

0230 BAKER, 'BAKER', A 

TEST2 9/13/73 PAGE 1 
ACCUMULATE 
NO SUMMARY, NO BREAKS 

CHARLIE ABLE BAKER 
TWO-LINE 

123.46 AOOOl 191 

133 
256 
49 
241 
384 
283 
184 
100 

ABLE TWO-LINE TOTAL 1,821 

123.46 A0002 30 

147 

ABLE TWO-LINE TOTAL 177 

123.46 A0003 376 

241 
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ABLE TWO-LINE TOTAL 
123.46 A0004 



ABLE TWO-LINE TOTAL 
123.46 A0005 



ABLE TWO-LINE TOTAL 
123.46 A0006 

ABLE TWO-LINE TOTAL 
123.46 A0007 



TEST2 9/13/73 
ACCUMULATE 
NO SUMMARY, NO BREAKS 



CHARLIE 



123.46 



ABLE 

TWO-LINE 

A0007 



ABLE TWO-LINE TOTAL 
CHARLIE TOTAL 

TEST2 9/13/73 

ACCUMULATE 
NO SUMMARY, NO BREAKS 



286 
290 
222 
287 
207 
215 

2,224 

40 
196 
159 
286 
289 
217 

1,287 

82 
409 
403 
377 
247 
7 

1,525 

153 

153 

129 
235 
355 

PAGE 



BAKER 



138 
278 
159 
382 
269 

1,945 
9,132 

PAGE 



CHARLIE 



123.47 



ABLE 
TWO-LINE 

AOOOl 



BAKER 



38 
188 
117 
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ABLE TWO-LINE TOTAL 
CHARLIE TOTAL 

TEST2 0/13/73 

ACCUMULATE 
NO SUMMARY, NO BREAKS 



173 

516 
516 

PAGE 



123.48 


AOOOl 


304 
292 
231 
332 
23 


ABLE TWO-LINE 


1,182 


123.48 


A0002 


149 
332 


ABLE 


TWO-LINE 


481 


123.48 


A0003 


107 


ABLE 


TWO-LINE TOTAL 


107 


123.48 


A0004 


207 
215 
256 


ABLE 


TWO-LINE TOTAL 


678 




CHARLIE TOTAL 


2,448 



TEST2 9/13/73 

ACCUMULATE 
NO SUMMARY, NO BREAKS 



CHARLIE 
123.49 



ABLE 
TWO-LINE 



PAGE 



BAKER 



AOOOl 

311 

325 

396 

339 

55 



ABLE TWO-LINE TOTAL 
123.49 A0002 



ABLE TWO-LINE TOTAL 
123.49 A0003 



1,489 
130 
239 
375 
238 
368 
203 

1,553 

146 
321 
374 
229 



63 
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ABLE TWO-LINE TOTAL 1,070 

123.49 A0004 387 

296 
252 
28 
139 
281 
176 
60 

ABLE TWO-LINE TOTAL 1,619 

123.49 A0005 258 

58 
289 
213 
242 
391 
318 

ABLE TOW-LINE TOTAL 1,769 
CHARLIE TOTAL 7,500 

TEST2 9/13/73 PAGE 
ACCUMULATE 
NO SUMMARY, NO BREAKS 

CHARLIE ABLE BAKER 

TWO-LINE 

123.50 AOOOl 370 

212 
238 

ABLE TWO-LINE TOTAL 820 

123.50 A0002 218 

268 
112 
149 
335 
34 
170 
27 
133 

ABLE TWO-LINE TOTAL 1,446 

123.50 A0003 26 

129 
231 
335 
38 
187 

ABLE TWO-LINE TOTAL 946 

123.50 A0004 161 

392 
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ABLE TWO-LINE TOTAL 



553 



23.50 A0005 


379 




256 




52 




256 




50 




249 




13 




61 


ABLE TWO-LINE TOTAL 


1,316 


CHARLIE TOTAL 


5,081 



TEST2 9/13/72 PAGE 
ACCUMULATE 
NO SUMMARY, NO BREAKS 



CHARLIE 



ABLE 
TWO-LINE 



BAKER 



23.51 AOOOl 


196 




157 




376 




239 




240 




381 


ABLE TWO-LINE TOTAL 


1,965 


CHARLIE TOTAL 


1,965 


REPORT TOTAL 


26,642 



The difference between summarizing or 
shown in Section 15.3.3. 



not summarizing a report is 



15.3.3 Example 3 

The next control program will print summary information whenever the 
ABLE field changes. For each field to be printed, specify A for 
accumulate totals. Computational fields may also be printed if the A 
option is selected. 



0100 
0110 
0120 
0130 
0140 
0150 
0160 
0170 
0180 
0190 
0200 
0210 
0220 
0230 
0240 
0250 
0260 



IDENT TEST3, PROGRAMMER NAME 
HEADl 'ACCUMULATE' 
HEAD2 'SUMMARY.' 
HEAD2 ', COMPUTES' 
INPUT TESTD/1,S 

ABLE, A5, LI 

BAKER, D4 

CHARLI,D5.2 



COMPUTE 



PRINT 



VARNAM=BAKER*1.00+CHARLI*BAKER+(CHARLI*CHARLI) #2 
SALARY+CHARLI *BAKER 

ABLE,"ABLE*AA' 

CHARLI, 'CHARLIE' ,A 

BAKER, 'BAKER' ,A 

VARNAM, •COMPUTATIONAL*FIELD' ,A 

SALARY, 'SALARY' ,A 
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0270 END 



TESTS 



REPORT TOTAL 











10/05/73 


PAGE 1 




A 


C C U M 


U L A T 


E 






SUMMARY. , 


COMPUTES 






ABLE 


CHARLIE 


BAKER 


COMPUTATIONAL 


SALARY 


AA 








FIELD 




AOOOl 


1 


,111.14 


1,821 


363,822.99 


224,820.66 


A0002 




246.02 


177 


52,514.16 


21,852.42 


A0003 




987.68 


2,224 


398,738.24 


274,575.04 


A0004 




740.76 


1,287 


251,634.24 


158,893.02 


A0005 




740.76 


1,525 


281,255.72 


188,276.50 


A0006 




123.46 


153 


34,284.75 


18,889.38 


A0007 




987.68 


1,945 


364,013.66 


240,129.70 


AOOOl 


1 


,111.28 


1,698 


348,577.79 


209,663.88 


A0002 




246.96 


481 


90,369.50 


59,393.88 


A0003 




123.48 


107 


28,566.67 


83,719.44 


A0004 




370.44 


678 


130,139.37 


83,719.44 


AOOOl 




740.94 


1,489 


276,864.65 


183,876.61 


A0002 




740.94 


1,553 


284,831.65 


191,779.97 


A0003 




493.96 


1,070 


194,203.42 


132,134.30 


A0004 




987.92 


1,619 


323,547.555 


199,930.31 


A0005 




864.43 


1,769 


326,971.27 


218,452.81 


AOOOl 




370.50 


820 


147,846.75 


101,270.00 


A0002 


1 


,111.50 


1,446 


317,297.25 


178,581.00 


A0003 




741.00 


946 


209,290.50 


116,831.00 


A0004 




247.00 


553 


99,353.00 


68,295.50 


A0005 




988.00 


1,316 


285,860.00 


162,526.00 


AOOOl 




864.57 


1,965 


351,445.19 


242,697.15 


i-AL 


14, 


,941.32 


26,642 


5,161,427.72 


3,289,801.93 



15.4 ERROR MESSAGES 

PRINT evaluates each statement for correctness. Whenever errors 

occur, the line in error and a message are printed. The number 

printed near the error message indicates the character position where 

the error occurred. The following error messages are printed by 
PRINT. 



Message 
ALPHA LITERAL REQUIRED 



Meaning 



Expected alpha 
missing . 



literal 



IS 



ALREADY DEFINED 



HEADER IS TOO LONG 



An attempt was made to name a 
field in the INPUT or COMPUTE 
section with a name that was 
previously used. 

The header line exceeds 132 
characters . 



IMPROPER DEFINITION 



IMPROPER LITERAL 



Filler item in the PRINT 
section is used incorrectly. 

Literal too large. 
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Message 
IMPROPER USE OF DECIMAL PLACES 

INTEGER FROM 1-15 REQUIRED 

INTEGER FROM 1-132 REQUIRED 

INTEGER REQUIRED 

LITERAL TOO LONG 

MUST BE IDENT 

MUST BE NUMERIC ITEM 

MUST BE S 

NEED FILE NAME 
NO ENDING QUOTE 
NO INPUT DIRECTIVE 



NO PRINT ITEMS 



NOT DEFINED 



NOT ENOUGH RIGHT PARENTHESES 



PICTURE TOO LONG 



SYNTAX ERROR 



TOO MANY COLUMNS IN REPORT 



TOO MANY COMPUTE STATEMENTS 



Meaning 

The number of decimal places 
exceeds the size of the field 
being defined. 

The size of a decimal field 
specified in the INPUT section 
must be between 1-15. 

The expected decimal fields 
out of range. 



Integer missing 
expected . 



where 



Field description exceeds 30 
characters. 

The first section in the 
parameter file must be IDENT. 

An item expected to be numeric 
is defined incorrectly. 

S is the only legal option in 
the INPUT statement that 
follows the comma. 

File name missing from IDENT 
statement. 

No closing quote for a HEADl, 
HEAD2 or PRINT statement. 



The INPUT 
missing . 



statement 



IS 



No fields are specified 
following the PRINT statement. 

An attempt was made to print a 
field that has not been 
defined . 

A statement in the COMPUTE 
section has too few right 
parentheses . 

The picture or edit mask for 
printing exceeds 22 
characters . 

Statement contains illegal 
characters or options. 

More than 132 columns under 
HEADl, HEAD2, or PRINT 
sections . 

More than eight COMPUTE 
statements were specified. 
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Message 
TOO MANY DATA ITEMS 

TOO MANY LEFT PARENTHESES 

TOO MANY LIST ITEMS 

TOO MANY RIGHT PARENTHESES 

UNKNOWN DIRECTIVE 



Meaning 

More than 20 data items in the 
INPUT section. 

A statement in the COMPUTE 
section is too complicated to 
be deciphered by PRINT. 

More than 20 data items in the 
INPUT section. 

A statement in the COMPUTE 
section has too many right 
parentheses . 

An invalid section statement. 
Only IDENT, HEADl, HEAD2, 
INPUT, COMPUTE, PRINT and END 
are legal. 



15.5 COMPILING PRINT 

PRINT consists of several source files: 

o PRINTl, PRINT2 are the data sections. 

o PRINT3, PRINT4, PRINTS, PRINT6 are the procedure sections of 

the parsing phase, 
o PRINT7, PRINTS, PRINT9, PRINTO are the procedure sections of 

the generation phase. 

To compile: 

.RUN COMP, PRINTl, PRINT2, PRINTS , PRINT4 , PRINTS . PRINT6 
. SAVE PRINTA 

.RUN COMP, PRINTl, PRINT2, PRINT7 , PRINTS, PRINT9, PRINTO 
. SAVE PRINTB 
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CHAPTER 16 
LINCHG 



The regular page of computer printout is large enough to contain 66 
lines of print. Although 66 lines per page is not always required by 
the programmer, its use is sufficient to make it a standard. 
Therefore, more often than not, when SYSGEN builds a system, the 
lines-per-page default is 66. 

This number may be changed at any time by reconfiguring SYSGEN. It is 
normally not convenient, to change page size by running SYSGEN. On 
printers, such as the LS8E, a paper tape drive ribbon is used to 
further control the number of lines per page. When a different page 
size is necessary, a specific size paper tape drive is installed. 

However, in place of the mechanical forms control, it is possible to 
use the software program LINCHG. LINCHG is a utility program which 
allows the temporary use of any number of lines per page (1-99) with 
programs (run singly or in batch) , without affecting the SYSGEN 
default number. To use LINCHG the programmer types: 

.R LINCHG 

The computer responds 

HOW MANY LINES PER PAGE? 

The programmer types the required number 

10^ 

LINCHG now installs 10 as the number of lines per page. (If <CR> is 
typed instead of the number the system defaults to 66 lines-per-page.) 
The same effect can be produced by typing 

^R LINCHG/10 

which eliminates the HOW MANY LINES PER PAGE question (there is no 
default in this case. The action must be explicitly stated.) 

The LINCHG number will remain in force for all programs which follow 
unless a further call to LINCHG is made, the system is rebooted, or 
the system is closed down. 



16-1 



Example of LINCHG when the SYSGEN default is 66 lines per page: 

-BATCH PRONAM 

.0090 Run Job 1-66 lines-per-page (default) 

.R LINCHG/iO 

.000 Run Job 2-10 lines-per-page 

.R LNCHG/33 

.0110 Run Job 3-33 lines-per-page 

.R LINCHG/99 

.0120 Run Job 4-99 lines-per-page 

.R LINCHG/66 

.0130 Run Job 5-66 lines-per-page 

The above example shows how a batch stream may be run starting with 
the normal default for the first program, then incorporating a variety 
of changes for the various programs which follow, and finishing with 
the SYSGEN default number. The 66 lines per page may also have been 
reestablished by rebooting the system. 
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APPENDIX A 
COS CODES 



In both source and data files, characters (alphanumeric and decimal) 
are stored 2 characters per word in 6-bit binary form (combinations of 
1 and 0) . Negative numbers are stored with the high order bit of the 
low-order digit set to 1. For example, the number 1234- is stored as 
two words in the form 

WORD 1 



22 


23 


1 


2 


24 


1 65 



WORD 2 
3 4 (with high order bit on) 

and would be recognized as 123T. This means that any program where 
the decimal to alpha conversion is neglected might produce negative 
numbers with letters. Refer to Table A-1 for a list of equivalent 
characters for negative numbers. 

The sequence of the COS codes is the same as the output from the SORT 
utility. 
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Table A-1 
COS Codes 





Equivalent 










Negative 








Character 


Numbers 


COS Code 


Character 


COS Code 







21 


I 


02 


1 




22 


II 


03 


2 




23 


# 


04 


3 




24 


$ 


05 


4 




25 


% 


06 


5 




26 


& 


07 


6 




27 


1 


10 


7 




30 


( 


11 


8 




31 


) 


12 


9 




32 


* 


13 


A 




42 


+ 


14 


B 




43 


f 


15 


C 




44 




16 


D 




45 


, 


17 


E 




46 


/ 


20 


F 




47 




33 


G 




50 


J 


34 


H 




51 


< 


35 


I 




52 


= 


36 


J 




53 


> 


37 


K 




54 






L 




55 


1 


40 


M 




56 


@ 


41 


N 




57 


[ 


74 







60 


\ 


— 


P 


-0 


61 


] 


76 


Q 


-1 


62 


^ 


77 


R 


-2 


63 




— 


S 


-3 


64 


Leader/Trailer 


— 


T 


-4 


65 


LINE FEED 


— 


U 


-5 


66 


Carriage Return 


— 


V 


-6 


67 


Space 


01 


w 


-7 


70 


RUB OUT 


— 


X 


-8 


71 


Blank 


— 


Y 


-9 


72 


Bell 


— 


Z 




73 


TAB 


75 


null 




00 


FORM 


— 
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APPENDIX B 
LOADING COS 



The COS system is supplied on DECtape (LINCtape for PDP-12 users) 
diskettes and RK05s. It is suggested that the user copy the COS tape 
on a certified DECtape (or LINCtape) before using the system (Refer to 
Chapter 5.) The copy can be used and the original stored in a safe 
place in case part of the system should be inadvertently destroyed 
during subsequent use. 

The Monitor can be put into core memory in one of three ways. If the 
computer is equipped with the automatic load feature , the Monitor is 
loaded by pressing the INITIALIZE switch under the table or by raising 
the SW switch on the computer console. 

Otherwise the Monitor must be loaded into memory using the appropriate 
Bootstrap routine. 

The editing scratch area is not automatically erased during system 
start-up. 

If the system is equipped with an Analex printer, the printer must be 
turned off until the system is bootstrapped and re-configured. 



B.l AUTOMATIC LOAD 

If one of the optional automatic bootstraps 



MI8-EC 


for 


the 


TC08 


MI8-ED 


for 


the 


RK8 


MI8-EH 


for 


the 


TD8E 


MI8-E 


for 


the 


RF08 



was purchased, push the SW switch from down position to up position 
Then return it to the down position. 



B.2 TC08 DECTAPE AS THE SYSTEM DEVICE 

If your system uses DECtape as the system device, use the following 
procedures : 
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1. Mount the COS DECtape (DEC-08-OCOSA-D-UO) on DECtape unit 0. 

2. Set the LOCAL/OFF/REMOTE switch to REMOTE and the WRITE 
ENABLE/WRITE LOCK switch to WRITE LOCK. Set SWITCH REGISTER 
to zero (all switches down) and press EXTD ADDR LOAD. 

3. Enter the binary equivalent of the following locations and 
instructions (refer to Chapter 1 of Introduction to 
Programming for information on binary numbers) . To bootstrap 
a TC08 system: 



LOCATION 


INSTRUCTION 


7613 


6774 


7614 


1222 


7615 


6766 


7616 


6771 


7617 


5216 


7620 


1223 


7621 


5215 


7622 


0600 


7623 


0220 


7754 


7577 


7755 


7577 



Set the SWITCH REGISTER (SR) to enter the first location 
(7613) and press ADDR LOAD. Set the switches to enter the 
first instruction and push up on DEPosit switch. Continue 
entering instructions as described up to and including 
instruction 0220. Then set 7754 in SR and press ADDR LOAD. 
Set SR to 7577 and push up on DEP switch twice. 

4. Set terminal REM/LOC switch to REM. 

5. Set SR to binary equivalent of 7613; press ADDR LOAD, CLEAR 
and CONT keys in that order. The Monitor should respond with 
the message 

COS MONITOR 5.05 CURRENT VERSION 

NUMBER) 
DATE? 



Enter the DATE command as described in Chapter 2. At this 
point the SYSGEN program can be used to change the system 
unit number assignment (refer to SYSGEN, Chapter 3) . 

Set the switch to WRITE ENABLE. 

6. If the Monitor does not respond correctly, start at step 1 
and reload the bootstrap routine. 



B.2.1 System Restart on DECtape 

If the system halts or CTRL/C is inoperative, use the automatic 
bootstrap switch to restart the system. Each time the Monitor is 
reloaded, the old date is erased and the Monitor requests a new date. 
Use the DATE command to enter the new date. 
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For users without a bootstrap switch, set SR to 7600 and press LOAD 
ADDR, CLEAR and CONT, assuming the core resident monitor has not been 
destroyed . 



B.3 DISK AS THE SYSTEM DEVICE 

If your system uses an RK08, RK8E, or RF08 disk as the system device, 
the programs must be loaded on the disk from the DECtape supplied. 

1. Follow steps 1-6 described in section 2.0 on DECtape as a 
system device. 

2. Enter the DATE command in response to the Monitor's DATE? 
message. Then enter the command: 

_^RU SYSGEN/C 

in response to the Monitor's period. SYSGEN asks the 
following questions: 

DO YOU DESIRE TO CHANGE THE SYSTEM DEVICE? 



Type YES and a CR key. 

WHAT IS THE NEW SYSTEM DEVICE 

Type the 3 character designation for the disk system device 
(DKn) and the CR key. 

DO YOU WANT TO TRANSFER YOUR FILES? 



Type YES and the CR key. 

DO YOU HAVE AN ANELEX PRINTER? 

Type YES and the CR key and SYSGEN skips to the last 
question. Type NO and the CR key and SYSGEN assumes an LP08 
or LS8E printer and asks: 

132 COLUMN PRINTER ? 



Answer YES and the CR key if there is a 132-column line 
printer. If NO is the answer, SYSGEN assumes an 80-column 
printer. 

IS EVERYTHING CORRECT? 

Type YES or NO and the CR key. If NO is entered the 
questions are reasked. 

The files are transferred to the disk specified. To operate from the 
disk as the system device, refer to BOOT, Chapter 9, or restart the 
system with one of the following bootstraps. 
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RK08 AND RK8E BOOTSTRAP ROUTINE 

Location RK08 Instruction RK8E Instruction 



0030 6733 6743 

0031 5031 5031 

Set the SWITCH REGISTER to 0030, press the ADDR LOAD, CLEAR, and CONT 
keys in that order. 

NOTE 

If a PDP-12 is being used, execute an I/O 
PRESET in 8-mode before starting at location 
30. 

The Monitor should respond with the version number and the DATE? 
message. Enter the DATE command as described in Chapter 2. 



RF08 BOOTSTRAP ROUTINE 

Location Instruction 

7750 7600 

7751 6603 

7752 6622 

7753 5352 

7754 5752 

Set SR to 7750; press ADDR LOAD, CLEAR, and CONT in that order. The 
Monitor should respond with the version number and the DATE? message. 
Enter the DATE command as described in Chapter 2. 



B.3.1 System Restart on Disk 

If the system halts and CTRL/C is inoperative, use one of the 
bootstrap routines to restart the system. Each time the Monitor is 
restarted the Monitor requests a new date. Use the DATE command to 
enter the new date. 

For users without the bootstrap switch if the core resident portion of 
the Monitor is intact, set SR to 7600 and press LOAD ADDR, CLEAR and 
CONT. 



B.4 TD8E BOOTSTRAP 

If your system uses TD8E's use the following bootstrap routine to load 
the COS software. 

1* Location Instruction 

7300 
7301 
7302 
7303 



1312 


4312 


4312 


6773 
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7304 5303 

7305 6777 

7306 3726 

7307 2326 

7310 5303 

7311 5731 

7312 2000 

7313 1300 

7314 6774 

7315 6771 

7316 5315 

7317 6776 

7320 0332 

7321 1327 

7322 7640 

7323 5315 

7324 2321 

7325 5712 

7326 7354 

7327 7756 

7330 7747 

7331 7400 

7332 0077 

Mount the COS 300 DECtape (DEC-8E-0C0SA-D-U0) on DECtape unit 
0. Set the LOCK/OFF/REMOTE switch to REMOTE and the WRITE 
ENABLE/WRITE LOCK switch to WRITE LOCK. Set the switch 
register (SR) to zero (all switches down) and press EXTD ADDR 
LOAD. 

Set the SR to the binary equivalent of the first location and 
press ADDR LOAD. Set the switches to the binary equivalent 
of the first instruction and push up on the DEP switch. 
Continue entering the instructions as described, the location 
is incremented automatically and need not be entered again. 

2. Set terminal REM/LOC switch to REM. 

3. Set SR to binary equivalent of the first location; press 
ADDR LOAD, CLEAR and CONT keys in that order. The Monitor 
should respond with the message 

COS MONITOR 5.05 (or current 

version) 
DATE? 



WRITE ENABLE unit and enter the DATE command as described 
in Chapter 2. 

4. If Monitor does not respond correctly start at step 1 and 
reload the bootstrap. 
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B.5 PDP-12 USERS 

For a PDP-12 with LINCtape, 

1. Set left switches to 0700. 

2. Set right switches to 0000. 

3. Press I/O PRESET with mode switch set to LINCmode. 

4. Mount system tape (DEC-12-OCOSA-D-UO) on drive 0, WRITE 
LOCKED, REMOTE. 

5. Press DO. 

6. When LINCtape stops moving, press the START 20 switch. 

Monitor displays 

COS MONITOR 5.05 (or current version) 
DATE? 

7. WRITE ENABLE unit and enter the DATE command as described 
in Chapter 2. 

8. If Monitor does not respond correctly, start at step 1 and 
reload the system. 

Any LINCtapes to be used with the COS system must be marked with 
MARK12 (DEC-12-SE2E-UO) (P option, 129 words) . 
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B.6 RX8E USERS 

If your system uses the RX8E as the system device, do the following: 

MOUNTING THE .RX8E 

1. Push the top of red power button on front of machine so that 
it stays in. Very shortly the cursor (flashing light) will 
appear in the screen. 

2. Remove "COS-310 OPERATING SYSTEM" diskette from its envelope, 
(do not touch the brown surface which appears through holes 
in cover) . 

3. After lifting the left-hand door (drive 0) on the front of 
the DS310, slide the COS-310 OPERATING SYSTEM diskette into 
the slot. (Close door over diskette - it will "click" when 
closed properly) . 

4. Remove data diskette from its envelope and repeat the above 
procedure with the right-hand slot (drive 1). 

5. Push the top of the white START button on front of machine 
... let it go allowing it to rock out. 

6. The screen now displays a number. Respond by typing any 
character. This causes the DS310 to perform an automatic 
self-test, following this test the operating system is loaded 
into memory. The screen now displays 

COS MONITOR 5.05 
DATE? 



In response, type the data in the following format 

.DA MM/DD/YY 

The total display on the screen is now: 

1 2 3 Z 

COS MONITOR 5.05 

DATE? 

DA 12/31/75 

The DS310 is now ready to run the program. 

DISMOUNTING RX8E AND TURNING DS310 OFF. 

When you have finished using the DS310, close all computer's files 
according to the instructions furnished with the application program. 
Then open the doors over the diskette and gently slide the diskettes 
out from the drives. Place the diskettes back in their envelopes so 
that the labels can be seen. Hold the diskettes to avoid contact with 
the recording surface. 

After the diskettes have been removed, push the bottom of the red 
POWER button. The display on your screen will disappear. 
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APPENDIX C 
SIZE OF CODE PRODUCED BY DIBOL COMPILER 



DIBOL source statements are compiled by the DIBOL compiler and produce 
code which can later be executed by the run time system (RSYS) . 
Memory is also set aside for the constants and variables that are used 
by the program. 

Each variable (field name) takes up as much memory (in bytes) as 
specified in its data specification statement. For example, a 
variable defined by a 6D3 specification requires 18 (decimal) bytes of 
storage. This is 9 words since a computer word consists of 2 bytes. 

Variables defined in an overlay record share memory with the variables 
in the record being overlaid. 

Each RECORD statement requires one additional word of storage. This 
word is reserved at the beginning of the record for storing the COS 
word count during I/O operations. 

Each record begins on a word boundary (even byte address) . If a 
record has an odd length (in bytes), one byte of storage is wasted. 

Each constant used in the procedure section of a DIBOL program 
requires storage (in bytes) equal to the length of the constant. The 
length of a decimal constant is equal to the number of digits in the 
number, including leading zeros. There are no negative constants. 
The length of a character string is the number of characters in it. 

Each distinct constant with a length of four or less characters or 
digits appears only once in the space reserved for constants. Thus, 
if the constant 32 appears three times in the program it will appear 
only once in the reserved data area. However, constants larger than 
four characters or digits require space each time they appear in the 
program. 

The code produced by statements in the procedure section must start on 
a word boundary. Each statement requires an overhead of one word. 
Each statement label used requires one word. Unlabeled statements 
with line numbers 1000 more than the previous line number require one 
additional word each. 

The number of words of code generated by an expression can be 
determined by the following rule: 
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1. Add together the number of variables and constants used. 

2. Add in the number of operators which appear (do not count 
unary + signs). The operators include +, -, /, *, #. 

3. Add one for each subscript reference (be it of the form V(A) 
or V(A,B) ) . 

The following table shows how much code is used by various DIBOL 
statements. J_ denotes the number of words required by the expression 
E. 



Statement 

ACCEPT (y,x) 

CALL label 

CHAIN chnum 

DISPLAY (line, column, expr) 

END [/list control] 

FINI (channel) 

FORMS (channel ,skipcode) 

GOTO label 

GOTO (labell, . . . ,labeln) ,key 

IF (expr 1. rel .expr2) stmnt 

INCR var 

INIT (channel, dev) 

INIT (channel, dev,f ilnam[ ,unit] ) 

ON ERROR label 

PROC [n] [/list control] 

READ (channel , record , number ) 

RETURN 

START [/list control] 

STOP 

[NO] TRACE 

TRAP 

var = 

var=expr 

var=exprl,expr2 

WRITE (channel , record , number ) 

XMIT (channel , record [, label] ) 



No. of Words of 
Code Generated 

y+x+1 

1 - 

chnum+ 1 

1 ine+column + expr+1 

1 

channel +1 

channel +skipcode +l 

1 

key +n+2 

expr l+ expr 2+3 

var +1 

channel+2 

channel +3 + filnam+ un it 

1 



channel +n umber -f record +l 

1 



1 

1 

2 

var+1 

var + expr +1* 

var +expr l+ expr 2+l 

channel + number + record +l 

channel + record +2 



For the statement marked with an asterisk (*) in the previous table, 
subtract 1 if the principal operator of expr is binary + or - and if 
both types are decimal. For example, 

D = 3+5 takes 4 words of storage, while 
D = 3*5 takes 5 words. Similarly, 
D=3+4+5 takes 6 words while 
D=3*(4+5) takes 7 words. 

Additional space is also required by the symbol table. This consists 
of two words for each distinct variable, statement label, or constant 
used . 
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APPENDIX D 
DESIGNING A RECORD 



The file design begins with the set of related information shown in 
blank form. It is a simplified form which could be processed to print 
out customer invoices. 

DATE 

PART# PART NAME 

WHOLESALE PRICE 

VENDOR* 

This information is used in a BUILD control program such as described 
in Chapter 6. First, the file designer notes the type and size of 
each field in this record. Numerical fields on which calculations 
will be performed later by a program are defined as decimal fields; 
other fields are defined as alphanumeric fields. 

0010 DEFINE 

002 Fl, D6 ;PART # 

0030 F2, A30 ;PART NAME 

004 F3, D7 ; VENDOR # 

0050 F4, D6 ;DATE 

0060 F5, D6 ;WH0LESALE PRICE 

The designer now assigns BUILD input line keywords. Here, he should 
group related items such as part #, name and wholesale price. 



0100 


INPUT 


Olio 


PART 


0120 


Fl 


0130 


F2 


0140 


F5 


0150 


DATE 


0160 


F4 


0170 


VENDOR 1 


0180 


F3 



A sample data entry form is now completed, showing the line names and 
the size and type of each field. This can be used for reference when 
data is entered. When this record design has been proven, it will be 
more efficient to print these line names on the forms which are used 
to collect the original data. 
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DATE (D6) 

PART# (D6) .NAME(A30) WHOLESALE PRICE (D6). 

VENDOR# (D7) 
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APPENDIX E 
BUILD CHECKDIGIT FORMULA 



In most applications involving identification numbers, each number may 
be verified for accuracy by a checkdigit, which is essentially a 
redundant digit added to the normal number. The checkdigit is 
determined by performing an arithmetic operation on the number in such 
a way that the usual errors encountered in transcribing a number are 
detected. The checkdigit is determined as follows: 

1. Start with a number without the checkdigit ... 5764 . 

2. Multiply the first digit and every other digit by 2 (left to 
right) . 10 12 

3. Sum the digits in the resulting numbers and the digits not 
multiplied. 1+0+7+1+2+4 =15 

4. Subtract sum from next higher number ending in zero. 20-15=5 

5. Add checkdigit to the end of the number. 57645 

(This is the correct checkdigit if the number is entered in a 
D4 field.) 

Note that a checkdigit procedure is not completely error proof. In 
the example given above, 5764 or 5673 give the same checkdigit. It is 
unlikely, however, that transpositions of this sort will occur. The 
checkdigit does not guard against the possible assignment of an 
incorrect but valid code, such as the assignment of a wrong valid 
identification code to a customer. 

If the number entered for a checkdigit calculation is shorter than the 
field, the rightmost digit is used as the checkdigit and the remainder 
of the number is r ight- justified and padded with zeroes on the left. 
The zeroes are considered when the checkdigit formula is calculated. 
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APPENDIX F 
HARDWARE DESCRIPTIONS 



Hardware descriptions for both COS~300 and COS —310 systems are as 
follows : 



F.l HARDWARE COMPONENTS FOR COS-300 ARE: 

PDP-8/E Computer with at least 16KB of core 



TD8E 

VT05 

PC8-E 

CR8-E 
CM8-E 

LP08 

LS8-E 

LP05 



DECtape drives, (or TC08 drives) 
RK08 (or RF08/RS08 disk) 

Terminal (or LA30 DECwriter) 

Paper tape Reader/Punch (optional) 

Card reader (optional) or 
Card reader (optional) 

Line printer or 

Line printer 

300 lines per minute printer 
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Figure F-1 
DS 300 Hardware Configuration 
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F.2 HARDWARE COMPONENTS FOR COS-310 AREs 



PDP8/E 
8M 
8F 
8A 



COMPUTER WITH AT LEAST 16KB CORE. 



RKOl 

RK05 Disk (mutually exclusive) 

TD8E 

TC08 DECtape (mutually exclusive) 

RX8E 

VT05 

VT50 Terminals (mutually exclusive) 

LA30 

LA36 

LS8-E Printer (mutually exclusive) 

LA36 

LP05 



NOTE 

The central processor unit (CPU) of a 
COS System is located under the disk 
area of the system. There are two 
switches necessary for the operation of 
COS system. 



OFF/POWER Switch 



In the OFF position the 
switch disconnects all 
primary power to the 
machine. In the ON 
position all manual 
controls are enabled and 
primary computer power is 
applied. 



INITIALIZE Switch 
(COS-300 only) 



START switch 



Push this switch to 
initialize the 
system Bootstrap Loader. 

As above. 
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Figure F-2 
DS 310 Hardware Configuration 
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TERMINALS 



F.3 VT05 TERMINAL 

Basically, the VT05 terminal (Figure F-3) consists of a keyboard and 
CRT display. 

The basic function of the keyboard is to provide a convenient, on-line 
means of transmitting ASCII characters to the computer to be processed 
and displayed. An ASCII code is transmitted to the computer each time 
a key is depressed. 

The VT05 display allows direct viewing of all displayable characters 
contained in the VT05 character set that are transmitted from and/or 
received by the VT05. 

The VT05 displays up to 20 lines, 72 characters per line, or a maximum 
of 1440 characters full screen. A blinking cursor indicates the 
position of the next character to be generated and moves to the right 
automatically as each character is displayed. The VT05 can be 
operated in LOCAL or REMote mode. In LOCAL mode the terminal is off 
line and there is no communication with the computer. In REMote mode 
(the normal operating mode) data is transmitted between the terminal 
and the computer . 

VT05 controls and keys and their respective functions are listed in 
Table F-1. Keys which are operative off-line only are not covered 
here; refer to the hardware manual for the VT05 for a description of 
their function. 
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Figure F-3 
VT05 Terminal 
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Table F-1 
VT05 Controls 



Control 



Function 



Power ON/OFF S 



REM/LOC Switch 



CONTRAST Control 
BRIGHTNESS Control 

VERTICAL Sync Control 

HORIZONTAL Sync Control 

CR 
LF 



This switch is located on the right front of 
the VT05. When the ON/OFF switch is turned 
ON, power is applied to the complete system 
and the VT05 display refresh memory is 
cleared. After approximately one minute has 
elapsed, the cursor (bright dash) should 
appear in the upper left-hand corner (HOME 
position) of the screen. 

This switch is located on the right front of 
the VT05. In LOCal mode, the terminal is 
off-line and data can be typed at the 
keyboard but not entered into memory. In 
REMote mode, keyboard data is transmitted 
from the VT05 to the processor. 



NOTE 

The CONTRAST, BRIGHTNESS, VERTICAL 
and HORIZONTAL controls are adjusted 
in the same way as those of a 
commercial television receiver. 



The CONTRAST control is located on the 
right-hand side of the VT05 and is used to 
adjust for display contrast (clarity). 

The BRIGHTNESS control is located on the 
right-hand side of the VT05 and is used to 
adjust for CRT display brightness or 
intensity. 

The VERTICAL sync control is located on the 
right-hand side of the VT05 and is used to 
properly synchronize the screen in the 
vertical direction. 

The HORIZONTAL sync control is located on the 
right-hand side of the VT05 and is used to 
adjust the screen picture for proper 
synchronization in the horizontal direction. 

Returns cursor to the left margin of screen. 

Moves cursor down one line in same location. 
If pressed when cursor is on the bottom line 
(line 20) , the display scrolls (top line 
disappears and rest of lines move up one line 
position) . 
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Table F-1 (Cont. ) 
VT05 Controls 



Control 


Function 


RUBOUT 


Works in REMote mode in conjunction with the 
Monitor to erase characters. Erases the 
character above the cursor from memory and 
echoes the deleted character on the screen, 
i.e.. 




KAYYAEY 




rubouts echo 


TAB 


Moves the cursor to the right to the next TAB 
stop each time TAB is pressed. 


ALT 


Has no effect on the display and is ignored 
by the terminal. It is included to provide 
an alternate escape character (replaces 
Carriage Return or Line Feed) for use in the 
user program. 


CTRL 


Used simultaneously with character keys to 
perform special functions. (Chapter 2, Table 
2-1) 


SHIFT 


Produces the character in upper case portion 
of the key pressed simultaneously with SHIFT, 
e.g., 1 rather than 1. Control characters 
are "SHIFT inhibited" and alpha characters 
are permanently set to upper case. 


SHIFT LOCK 


Enables and holds the shift function or 
releases it if already set. When enabled the 
SHIFT LOCK key is lit. 


Space 


Produces a blank character position (wherever 
the cursor is located) each time it is 
pressed. Cursor moves one position to the 
right. 



F.3.1 VT05 Start Up Procedures 

1. Press the OFF portion of the ON/OFF power switch. 

2. For local operation (used for training, maintenance and 
alignment purposes) press the LOCal portion of the REM/LOC 
switch. 

For on-line operation, press the REMote portion of the 
REM/LOC switch. 

3. Press the ON portion of the ON/OFF power switch. The 
blinking cursor (bright dash) appears in the HOME position 
(the first character position of the top line) , and a beep is 
emitted. 

4. Allow approximately one minute for the CRT filament warmup. 

5. If the cursor does not appear as specified, press the HOME 
key. 
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If the cursor still does not appear, check the BRIGHTNESS 
control to be sure it is not set too low. Contact the local 
DEC Field Service Office if these steps do not make the 
cursor appear . 

6. In REMote mode all keyboard and control functions are 

operational and the VT05 is ready for on-line operation. To 
verify correct system operation, press the various controls 

and displayable* character keys individually and observe the 

display. In LOCal mode all keyboard functions are 

operational. To verify this, press the keys individually and 
observe the screen. 



F.3.2 Additional Features: 

The VT05 sounds a warning beep when the line reaches character 
position 63. This alerts the user that there are 8 positions before 
the end of the line. The cursor moves to the right automatically as 
each character is displayed until it reaches position 72. 
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F.4 VT50 TERMINAL 

The VT50 terminal (figure F-4) is a low cost, high speed, alphanumeric 
CRT display with a keyboard for data entry. The VT50 is quiet because 
it needs no cooling fans. The screen is designed for optimum 
character definition: it is recessed and tilted to avoid glare from 
overhead lighting. Since no filter covers the screen, it can be 
cleaned easily. 

Operator interaction with the VT50 is based on the cursor: a flashing 
underline that shows where the next character will appear. The 
screen's 80 character per line format allows the exact display of 
full-card images. Thus, the VT50 can take the place of a keypunch and 
card reader for program entry. 

The VT50 transmits data at a rate of 9600 baud. Twelve (12) lines of 
information may be displayed at any one time depending on the device 
involved. When the bottom line on the screen is displayed and the 
CURSOR is directed to move to the next line, the top line 
automatically "scrolls" off the screen to allow space for the line at 
the bottom. 
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Figure F-4 
VT50 Terminal 
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Table F-2 



VT50 Controls 



Control 



Function 



Adjust the controls on 
the underside of the Unit 



Plug the Unit in 
and Apply Power 



Wait for the Cursor 



INTENSITY CONTROL 



CR 



LF 



DELETE 



Access to the controls on the 
underside is gained by tipping the 
unit up on its rear. The unit 
should not be tilted forward since 
this will apply stress to the 
controls which may damage the unit. 
A label on the underside of the 
unit contains a condensed form of 
this information, and a diagram 
which shows the relative location 
of each of the controls. The two 
rotary switches govern the mode and 
rate of data transmission. 

There are two cords coming from the 
underside of the unit: an 
input-output cable which is not 
used in the VT50 test, and a power 
cord, which should be plugged into 
an outlet at this time. The ON/OFF 
Switch is on the right side of the 
unit. Turn the unit on by sliding 
this switch toward the keyboard . 

After approximately one minute, you 
should see a flashing underline, 
called the cursor, at the upper 
left corner of the screen. The 
terminal uses the cursor to tell 
you where on the screen you are 
typing. 

Adjust the intensity control for 
the best image on the screen. This 
control works like the brightness 
control on a television set. 



Returns cursor to the 
of screen. 



left margin 



Moves cursor down one line in same 
location. If pressed when cursor 
is on the bottom line (line 12) , 
the display scrolls (top line 
disappears and rest of lines move 
up one line position.). 

Works in REMote mode in conjunction 
with the Monitor to erase 
characters. Erases the character 
above the cursor from memory and 
echoes the deleted character on the 
screen, i.e., 

KAYYAEY 

rubouts ^"'^echo 
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Table F-2 (Cont.) 
VT50 Controls 



Control 


Function 


TAB 


Moves the cursor to the right to 




the next TAB stop each time TAB is 




pressed. 


BACKSPACE 


moves Cursor toward left margin one 




character at a time. 


ESC (ESCAPE KEY) 


See Table 2-1 


BREAK 


Not used with DS 310. Used only 




when VT50 is installed as a 




stand-alone remote terminal. 


CTRL 


Used simultaneously with character 




keys to perform special functions. 




(Chapter 2, Table 2-1) 


SHIFT 


Produces the character in upper 




case portion of the key pressed 




simultaneously with SHIFT, e.g. ! 




rather than 1. Control characters 




are "SHIFT inhibited" and alpha 




characters are permanently set to 




upper case. 


SHIFT LOCK 


Enables and holds the shift 




function or releases it if already 




set. When enabled the SHIFT LOCK 




key is lit. 


Space 


Produces a blank character position 




(wherever the cursor is located) 




each time it is pressed. Cursor 




moves one position to the right. 



F.4.1 Additional Features 



The VT50 sounds a warning beep when the line reaches character 
position 63. This alerts the user that there are 8 positions before 
the end of the line. The cursor moves to the right automatically as 
each character is displayed until it reaches position 72. 



The operator invokes the c 
the keyboard (to the 
recognized by the host's s 
the system software to 
into the proper cursor con 
System software for host c 
that expect to receive the 
operator. In such systems 
might not be recognized 
different action than desi 



ursor control commands by transmitting from 

computer) the editing commands that are 

ystem software. It is the responsibility of 

translate commands coming from the operator 

trol commands recognized by the terminal 

omputers generally includes editing routines 

ir own unique editing commands from the 

Escape Sequences received from the keyboard 

and therefore could cause a completely 

red . 



For further information on the VT50 Terminal 
TERMINAL USERS MANUAL (DEC-00-HVTUA-A-D) . 



refer to VT50 VIDEO 
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CARD READER 



F.5 CARD READER 

There are two types of card readers, the CR8-E which reads 12-row, 80 
column punched cards and the CM8-E which reads 12-row, 40 column mark 
sense cards or 12-row, 40 column punched data cards with timing marks. 



The CR8-3 card reader switches and indicators are described 
F-3. 



in Table 




Figure F-5 
Card Reader 
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Table F-3 
Card Reader Switches and Indicators 



Switch/Indicator 



Function 



POWER (toggle circuit breaker and indicator) 

All power to the card 
controlled by this switch. 



reader 



IS 



STOP (momentary-action pushbutton/indicator switch) 

Actuation of the STOP switch immediately 
overrides the PICK COMMAND and negates 
the READY status. The card reader will 
stop operation after the card currently 
in the track is read completely. Power 
is not removed from the reader by this 
action. The red STOP indicator is 
illuminated as soon as the switch is 
depressed. 

RESET (momentary-action pushbuttom/indicator switch) 

Actuation of the RESET switch clears all 
error logic and initializes all 
counters. 



READ CHECK (indicator) 



STACK CHECK (indicator) 



The READ CHECK alarm indicator denotes 
that the card just read may be torn on 
the leading or trailing edges or have 
punches in the or 81st columns. A 
READ CHECK error will cause the reader 
to stop. 

The STACK CHECK alarm indicator signals 
that a card has failed to read the read 
station after a PICK COMMAND has been 
received . 



HOPPER CHECK (indicator) 



The HOPPER CHECK alarm indicator denotes 
that either the input hopper is empty or 
the stacker is full. 
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LINE PRINTERS 



F.6 LP08 LINE PRINTER 



The switches and lights described in Table F-4 are part of the LP08 
line printer, Fiqure F-6. 




Figure F-6 
LP08 80-Column Line Printer 
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Table F-4 
LP08 Switches and Indicator Lights 



Switch/Indicator 



Functions 



ON LINE/OFF LINE (switch) 
PAPER STEP (switch) 
TOP OF FORM (switch) 
ON LINE (indicator) 
READY (indicator) 



Push up to put printer on line with the 
computer . 

Push up to advance paper one line; 
disabled in on-line mode. 

Push up to advance paper to top-of-form; 
disable in on-line mode. 

Lights when ON LINE/OFF LINE switch is 
set to ON LINE. 

Lights when printer is ready to receive 
computer output. 



The ON/OFF switch controls the power to the printer. 

There are two LP08 line printers: 80- and 132-column versions. 
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F.7 LS8-E LINE PRINTER 

The basic character set for the LS8-E (Figure F-7) contains the 10 
numeric digits, through 9; 26 upper case letters, A through Z; and 
the 28 special characters shown below: 



$ 


= 


1 


[ 


# 


] 




? 


* 


& 


% 


- 


@ 


/ 


( 


> 


) 


\ 



(space) _ 
The LS8-E controls and their functions are shown in Table F-5 . 
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Figure F-7 
LS8E Printer 
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Table F-5 
LS8-E Controls 



Control 


Function 


ON/OFF (Switch) 


Provides power to the printer and lights 




when in the ON position. 


SELECT (switch) 


Enables and halts printer and lights in 




the ON position. 


TOP OF FORM (switch) 


Moves line printer paper to top of sheet 




of proper location of the vertical forms 




control tape (Refer to Centronics 




Manual) when installing forms. 


FORMS OVERRIDE (switch) 


Allows completion of form being printed 




even though paper out switch was 




activated . 


HARDWARE ALARM (light) 


Signals when head carrier has exceeded 




the right margin stop. An audio alarm 




also sounds. If this should happen. 




reset the printer and restart the job. 


PAPER OUT (light) 


Indicates printer is out of paper or 




paper handling malfunction. Correct the 




problem and restart the job. 


MANUAL CONTROLS 




Paper Advance Knob 


Located on left side of carriage; 




provides manual forward and reverse 




paper positioning. 


Paper Feed Level 


Located on rear, right top of printer; 


(older models only) 


provides initial paper feed around 




platen to allow positioning of paper in 




the tractor feed mechanism. 


Forms Thickness Control 


Located on inside of printer, this dial 




with graduated markings provides 




adjustment of clearance between platen 




and face of printer head. Adjustment 




must be made according to the thickness 




of the forms being used. 
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F.8 LP05 LINE PRINTER 

The LP05 line printer is a high quality drum printer. The basic 
printer contains the following: 132 printing columns; 64 character 
drum; paper advance mechanism; top of form control; self testing 
capability; variable form length switch (11 positions); a static 
eliminator; a paper receptacle, and the necessary interface and 
control electronics. 




Figure F- 
LP05 
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F.8.1 Operator Controls 

The Operator Controls are Separated into three groups. Those most 
frequently used are located on the operators panel. The less used 
controls are located internally. Those directly related to forms 
positioning are on the printer mechanism. 

Table F-6 
LP05 Controls 



Controls 


Function 


Power On 


An indicator that is illuminated when 




primary power and DC voltages are ON in 




the printer. 


Ready 


An indicator that illuminates when all 




interlocks are closed and no fault 




conditions exist. 


On Line 


A switch/indicator that is illuminated 




when the printer is in the Ready 




condition and the ON LINE switch has 




been actuated. The interface is active 




only in an ON LINE condition. 




Depressing that switch will alternately 




place the printer ON LINE and Off line. 


Paper Step 


A momentary switch that can be used to 




advance the form one line if the printer 




is in an OFF LINE condition. 


Variable Forms 


A switch with 11 positions for variable 




form length. 


Top of Form 


A momentary switch that can be used to 




advance the form to the next page. This 




switch is disabled if the printer is ON 




LINE. 


Alarm/Clear 


A switch/Indicator that illuminates on 




the occurrence of a fault condition or 




when the print inhibit switch is in the 




ON position. Depressing the Alarm 




switch Master clears the printer logic. 


Drum Gate 


An Indicator that illuminates when the 




drum gate is unlatched. 


Paper Fault 


An Indicator that illuminates to 




indicate an out of paper, torn paper. 




and runaway condition. 


Ribbon Fault 


An Indicator that illuminates to 




indicate a ribbon jam or reversal 




failure . 


Hammer Fault 


An Indicator that illuminates to 




indicate a hammer fault has occurred. 
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Table F-6 (Cont.) 
LP05 Controls 



Controls 


Function 


Format Fault 


Illuminates in the event of a loss of 




synchronization in the basic printer 




paper feed system or a VFU parity error 




has been detected. 


Tape Fault 


An Indicator that illuminates when DAVFU 




is not loaded. 


Copies Control 


A knob that varies the distance from 




drum to hammer bank. This control is 




used to compensate for various forms 




thickness . 


Drum Gate Latch 


A lever that allows the drum gate to be 




opened for access to the print station. 




An unlatched condition stops the drum 




motor, clears the printer logic and 




inhibits the READY and ON LINE 




conditions . 


Vertical Positioning 


Two controls; one to move the form up 




or down at the print station for primary 




forms alignment, the second to provide 




file adjustment while printing. 


Horizontal Positioning 


File forms alignment is provided by a 




control knob that horizontally positions 




the forms by moving both tractors in 




synchronism. 
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DECWRITERS 



F.9 LA30 DECWRITER DATA TERMINAL 



The LA30 DECwriter (Figure F-9) is a dot matrix impact printer and 
keyboard for use as a hard copy I/O terminal. The unit can be 
interfaced with all DEC PDP product lines. It is capable of printing 
a set of 64 ASCII characters at a speed of up to 30 characters per 
second on a sprocket- fed 9-7/8 in. wide continuous form. Data entry 
is made via a keyboard capable of generating either 97 or 128 
characters. 






■I'. ifft^t^'^-i^Si?-: 







Figure F-9 
LA30 DECwriter 
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LA30 CONTROLS AND INDICATORS 



Table F-7 
LA30 Controls and Indicators 



Control/Indicator 


Function 


READY 

LOCAL LINE FEED 

MODE LOCAL LINE 

BAUD RATE 110, 150, 300 

MOTOR POWER 
AC POWER 


Lamp - Indicates power up on printer 
electronics and that the DECwriter is 
READY for use. Indicates input is 
enabled by keyboard electronics, if. INT 
bit is set by software. 

Switch - When depressed, causes a local 
line feed to be applied to the printer 
without a code being sent out to the 
computer. This control will also 
disrupt printing, but no characters will 
be lost. 

2-Position Switch - Selects either local 
or on-line operation. 

3-Position Switch - Selects the baud 
rate clock frequencies for 110, 150, and 
300 baud. 

Breaker (CB2) - Applies power to printer 
stepping motor electronics. 

Breaker (CBl) - Applies ac power to the 
unit power supply. 



F.9.1 Operating Procedures 



F.9.1.1 Loading Paper - When loading paper for the first time, or 
replenishing the supply, proceed as follows: 

1. Remove main power at CBl. 

2. Open the cover of the DECwriter by pulling up on both sides 
of the front. 



NOTE 

When opening the top cover, always release both ball 
studs from their spring retainers at approximately 
the same time to avoid skewing the top cover. 



3. Raise the cam lever located on the left-hand side of the 
print bar assembly until it disengages and slide the assembly 
back. 



F-24 



4. Feed the paper from its box on the floor under the DECwriter 
up through the opening in the bottom of the base casing. 
Pull the fresh supply into the machine and discard any 
remnants of the old supply. 

5. Make certain that the paper is feeding straight and re-engage 
the paper with its sprocket tractor pins. 

6. Pull the assembly forward and re-engage it by pressing the 
cam lever down until it locks in place on its retainer stud. 
Adjust tractor width, using vernier knob concentric with 
right-hand drive sprocket. Tractor pins should not elongate 
holes in paper. 

7. Advance the paper by rolling the knobs. Make certain that 
the paper indexes crisply from one line position to the next. 

8. Feed end of paper through the smaller hole in the cover and 
close the cover, latching both ball studs to the base 
assembly. 

9. Re-apply main power at CBl. 
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Table F-8 
LA30 DECwriter Specifications 



Specification 


Description 


Printing Speed 


30 character/second, asynchronous. 30 
line feeds/second, 300 ms carriage 
return 


Line Length 


80 character positions 


Character Spacing 


10 characters/in. 


Line Spacing 


6 lines/in. 


Paper 


9-7/8 in. wide continuous form, tractor 
driven. (1/2 in. pitch X 9-3/8 in. 
wide X 0.150 in. diameter feed holes) 


Copies 


One part: 12 to 20 lb paper 
Two part: 12 to 13 lb paper 

7 to 7-1/2 lb carbon 


Ribbon 


4 mil Nylon, 1/2-in. X 120 ft, medium 
inking 


Typeface 


5X7 dot matrix 


Printing Character 64 upper case ASCII subset (lower case codes print 

in upper case) 


Keyboard Characters 


97 or 128 (switch selectable) 


Code 


USASCII - 1968 


Interface 


Available for all DEC Computers. 
TTL-compatible, parallel (17 pairs plus 
1 spare pair in cable) . Interface is 
ASCII encoded. The Serial Interface is 
an extra cost option. Switch selectable 
110, 150, or 300 baud. Four-wire 20 mA 
current loop interface compatible with 
all DEC computers or EIA RS232C. 


Temperature 


50 F (10 C) - 122 F (50 C) 


Humidity 


5 - 90% (non-condensing) 


Dimensions 




Depth 
Width 
Height 


24 in. (o.61m) 
20-1/2 i. (o.5m) 
31 in. (0.79m) 


Weight 


110 lb (50 kg) 


DC Power Supply 


Self-contained (DEC Type H735) 


Power Input 


115/230 Vac + 10% 
50/60 Hz 
300W, maximum 
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F.IO LA36 DECWRITER II DATA TERMINAL 

The DECwriter II (LA36) is a fast, small, quiet, 300-baud keyboard 
printer for use as a hard-copy terminal in remote or local I/O 
applications. The LA36 is a serial transfer, asynchronous device 
offering improved throughput reliability, good print quality and form 
handling versatility in local operation. The LA36 functions as a 
typewriter allowing operators to add information to the print out. 




Figure F-10 
LA36 DECwriter 
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Table F-9 
LA36 Controls and Indicators 



Control/Indicator 



Function 



Power On-Off 

Line/Local 

Baud Rate-110,150,300 

Forms thickness adjustment 

Right tractor adjustment 
Fine vertical tractor release 



Applies and removes AC power to entire 
machine 

Selects on-line or local operation 

3-position switch selects the baud rate 
clock frequency for communications line 
operation 

Located on right side of print head 
carriage. Selects proper gap for 

1-through 6-part form. Approximately 1 
click for each part. 

Thumb screw may be loosened to allow 
movement of right tractor for various 
forms widths 

Line feed knob may be pressed inward and 
rotated in the appropriate direction for 
precise location of printing with 
respect to vertical zones 



Table F-10 
Specifications 



Printing 


True 30-cps throughput with 50-cps 
catch-up mode 132-column format 
Spacing - 10-inch horizontal, 6-inch 
vertical 


Characters 


Full 96 character upper/lower case ASCII 
7X7 dot (wire) matrix (0.070 X 0.100 
inches) 


Paper 


Variable width, 3 to 14 7/8 inches 

Up to 6-part forms, 20 mils maximum pack 

thickness 

Tractor drive, pin feed 


Keyboard 


Standard ANSI keyboard layout, N-key 
roll-over 


Interface 


Integrated 20mA current loop 


Ribbon 


DIGITAL-specif ied Nylon fabric, spool 
assembly, 0.5 inches wide C 40 yards 


Power Requirements 


90-132 Vac or 180-264 Vac, 47-63 Hz 

300 W maximum (printing), 160 W 

non-printing 


Temperature 


Operating 10 C (50 F) to 40 C (104 F) 
Non-operating: -40 C (-40 F) to 66 C 
(151 F) 
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Table F-10 (Cont.) 
Specifications 



Humidity 


Operating: 10% to 90% with max. wet 




bulb 28 C (82 F) and minimum dew point 




2 C (36 F) non-condensing 




Non-operating: 5% to 95% relative 




humidity non-condensing 


Dimensions 


27.5 inches wide, 33.2 inches deep 


Weight 


102 pounds 
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READER PUNCH 



F.ll HIGH-SPEED PAPER TAPE READER AND PUNCH UNIT 

The high-speed paper tape reader and punch unit shown in Figure F-11 
performs paper tape input and output. The high-speed paper tape 
reader is used to input data into core memory from eight-channel, 
fan-folded (non-oiled), perforated paper tape. The reader inputs 
information photoelectr ically at a rate of 300 characters per second. 




Figure F-11 
High-Speed Paper Tape Unit 
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The reader controls are shown in Figure F-11 and described in Table 
F-11. 

Table F-11 
High-Speed Reader Controls 



Control Function 



ON/OFF Press down on the ON portion of this 

switch to supply power to the reader 
unit. The OFF position setting 
disconnects the reader power supply. 

FEED Press the right side of this switch to 

advance tape through the reader without 
recording by the photoelectric sensors. 

Control Knob Turn this knob to the left to raise the 

tape retainer lever so paper tape can be 
inserted or removed. Turn the knob to 
the right to lower the lever to hold the 
paper tape over the sprocket wheel. 

The reader is controlled by the computer, although the operator may 
indirectly contol the reader from the keyboard through the computer. 



F.11.1 Papertape Positioning 

Paper tapes are manually positioned in the high-speed reader with the 
following steps. 

1. Turn the control knob to raise the tape retainer lever. 

2. Place the paper tape in the right-hand bin so the beginning 
of the tape passes over the sensors first. 

3. Place several folds of leader tape in the left-hand bin with 
the tape passing over the sprocket wheel. 

4. Turn the control knob to lower the retainer lever over the 
tape until the feed holes are engaged in the teeth of the 
sprocket wheel. 

5. Press the tape FEED button until leader tape is over the 
reader head. 

6. Tape is advanced and read by programmed computer 
instructions. 

Once the paper tape has been properly placed in the reader and the 
leader/trailer has been positioned as outlined in the preceding steps, 
the tape is normally read under control of system software. 

The high-speed paper tape punch is used to record computer output on 
eight-channel, fan-folded paper tape at 50 characters per second. All 
characters are punched under program control from the computer. 

The punch controls are shown in Figure F-11 and are described in Table 
F-12. 
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Table F-12 
High-Speed Punch Controls 



Control 


Function 


ON/OFF 
FEED 


Press down on the ON portion of this 
switch to supply power to the punch 
unit. The OFF position setting 
disconnects the punch power supply. 

Press the right side of this switch to 
advance feed-hole-only punched tape for 
leader/trailer purposes. 
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DECTAPE 



F.12 DECTAPE TRANSPORT UNIT 

The DECtape transport unit shown in Figure F-12 applies to both the 
TD8E and the TC08. This unit is a bidirectional magnetic tape 
transport which reads and writes the 10-channel magnetic tape. Tape 
movement can be controlled by programmed instructions from the 
computer or by the manual operation of switches located on the front 
panel of the transport. Data is transferred only under program 
control . 




Figure F-12 
DECtape Transport Unit 
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The transport controls are described in Table F-13. 

Table F-13 
DECtape Controls 



Control 


Function 


REMOTE 


This switch position energizes the 
DECtape transport and places it under 
program control. The REMOTE SELECT 
light comes on whenever the unit is 
selected for use. 


OFF 


This switch position disables the 
DECtape transport. 


LOCAL 


This switch position energizes the 
DECtape transport and places it under 
operator control from external transport 
switches. 


WRITE ENABLE 


This switch position enables the DECtape 
for search, read, and write activities. 
The WRITE light comes on when the switch 
is put in the WRITE ENABLE position. 


WRITE LOCK 


This switch position limits the DECtape 
transport to search and read activities 
only. (This prevents accidental 
destruction of permanent data.) 


Unit Selector 


The value specified by this 
eight-position dial (0-7) identifies the 
transport to the control unit. 




On TD8E devices, the first controller is 
hardwired to accept only or 1 and the 
second controller only 2 or 3. 




With the transport in LOCAL mode, 
depressing this switch causes the tape 
to feed onto the right-hand spool. 




With the transport in LOCAL mode, 
depressing this switch causes the tape 
to feed on the left-hand spool. 



P. 12.1 DECtapes are mounted on the transport unit as follows: 

1. Set REMOTE/OFF/LOCAL switch to OFF. 

2. Place DECtape on left spindle with DECtape label out. 

3. Wind four turns on empty DECtape reel on right spindle. 

4. Set switch to LOCAL. 

5. Depress the switch for a few seconds to make sure tape is 
properly mounted. 
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6. Dial correct unit number on unit selector. 

7. Set switch to REMOTE. Select either WRITE ENABLE or WRITE 
LOCK setting. 
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DISK 



F.13 RK08/RK01 DISK CARTRIDGE SYSTEM 

The RKOl Disk Drive and Control contains the drive electronics and 
mechanism for accepting and releasing the disk, positioning the 
read/write heads, and controlling reading and writing of data from 
RK08 commands. The RK08 interfaces up to four RKOl Disk Drive and 
control units. Each RKOl Disk Cartridge stores 831,488 12-bit words 
(including three spare tracks). Four RKOl drives controlled by one 
RK08 have a total of 3,325,952 words. 





Figure F-13 
RK08 Disk 



The switches, buttons and lights described in Table F-14 control the 
operation of the RK08 Disk. (See Figure F-13.) An RK8E disk is also 
available . 
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Table F-14 
RK08 Controls and Indicators 



Control 



Function 



ON (pushbutton and indicator) Push ON button to supply power to the 

disk. ON button lights when power is 
on. 



OFF (pushbutton and indicator) 



Push OFF button to halt the power supply- 
to the disk. OFF button lights when 
power is off. 



ATTN (pushbutton and indicator) 



Indicates that the disk power supply has 
a malfunction. Push the STOP switch to 
reset the power supply. 



NOTE 

This button also lights when 
system power is turned off with 
the computer ON/OFF switch. 
Push this button to reset the 
power supply. This 
inter-locking action protects 
the data on the disk from 
spurious write signals while 
computer and disk controls are 
powered down. 



DISK LOCKOUT 0-3 (pushbutton and indicator) 

Press the appropriate buttons (0-3) to 
lock out the corresponding disk so data 
cannot be written onto the disk platter. 
The button lights when pressed. The 
panel controls up to four disks. 



SECT PROT 



START/STOP (switch) 



SAFE (light) 



Prevents writing on protected sectors, 
as specified by bit of the second 
header word of the disk sectors. Press 
to protect sectors of the disk 
previously coded for sector protect by 
setting bit of the sectors 2nd header 
word to 1. (not implemented in COS) 

Place in the START or up position to 
initiate the disk starting cycle (only 
if the disk cartridge is in place and 
the disk cartridge receive handle is in 
the raised position, to initiate the 
disk STOP sequence. Switch must be in 
the STOP position to mount or dismount 
the disk cartridge. 

The SAFE light comes on approximately 35 
seconds after a STOP sequence has been 
initiated. When SAFE is lit, the disk 



F-37 



RK08 Controls and Indicators 



Control 


Function 


0,1,2 or 3 
(unit #) (light) 


cartridge access door interlock is off, 
and it is safe to lower the disk 
cartridge receiver handle for the 
removal or insertion of the disk 
cartridge. 

The READY light (left-hand light) comes 
on approximately 90 seconds after the 
START sequence has been initiated. When 
READY is lit the disk is ready to begin 
communicating with the computer. 



F.13.1 Mounting and Dismounting the RK08 Disk Cartridge 



F. 13.1.1 Mounting 

Follow the steps below to initiate operation of the RK08 disk. 

The DC power must always be ON before inserting a disk cartridge into 
the disk. If the disk cartridge is inserted without first turning the 
DC power on, the READ/WRITE head carriage assembly may be in the way. 

1. Press the disk power supply DC ON switch. The ON light comes 
on. 

2. When the SAFE lamp, on the front control panel of the disk, 
comes on and the handler lock unlatches, the disk is ready to 
receive the disk cartridge. 

3. Pull open the disk cartridge access door panel. The 
cartridge receiver is now raised into position for insertion 
of the disk cartridge. The handle interlock will keep the 
cartridge receiver handle locked in its close position 
whenever the SAFE lamp is turned off. 

4. Slowly slide the disk cartridge into the receiver assembly 
and make certain there is no internal resistance to its 
insertion. 



NOTE 

If there is the slightest resistance to the insertion 
of the disk cartridge into the disk receiver, the 
cartridge should be removed and the interior of the 
disk receiver examined to determine the cause of 
resistance. 



5. Raise the disk cartridge handle to the up or loaded position 
Do not force the handle. 

6. Close the disk cartridge access door. 
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NOTE 

An interlock switch is activated when the disk 
cartridge is properly inserted. However, if the 
switch is not activated, the drive is not put in the 
ready condition. If the switch should transfer to 
its inoperative position during an otherwise normal 
operation, the disk will immediately stop and the 
SAFE light will light. 

7. Set the START/STOP switch to the START or up position to put 
the disk drive system into operation. A disk handle 
interlock activates to ensure that the handle cannot be 
raised during normal operation. 

8. After a 90 second delay the READY lamp comes on, indicating 
that it is ready for actual operation. 



F. 13. 1.2 Dismounting 

Follow these steps to remove the disk cartridge. 

1. Make certain the DC power is ON. 

2. Set the START/STOP switch to the STOP or down position. The 
disk decelerates and the SAFE light comes on. 

3. Open the disk cartridge access door and pull the cartridge 
receiver handle down. 

4. Remove the disk cartridge from the cartridge receiver 
assembly. 

5. Close the disk cartridge access door. 
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F.14 RK8E/RK05 DISK CARTRIDGE SYSTEM 

The RK8-E consists of a single-cycle data break control and one RK05 
DECpack drive. The Modular design permits computing power to be 
easily expanded since one RK8-E control can support four RK05 
DECdrives, Each RK05 contains its own head position control and power 
supply, so that expansion doesn't require the purchase of additional 
equipment. 

The RK05 DECpack Drive Is a random-access, high density, rotating 
memory with movable read/write heads and a removable disk cartridge. 
Each RK05 provides 1.6 million words of storage, giving a fully 
expanded RKB-E disk system over 6 million words of information and 
offering the PDP-8 user an economical alternative to magnetic tape. 




Figure F-14 
RK8E/RK05 
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F.14.1 Mounting and Dismounting the RK8E Disk Cartridge 



F. 14. 1.1 Mounting 

The following is the correct cartridge mounting procedure for the RK05 
disk drive. Any deviation encountered during this procedure will be 
considered an error condition. 

1. Set switch labeled RUN/LOAD to the LOAD position. 

2. Verify that light labeled PWR is on. 

3. Wait for light labeled LOAD to come on. 

4. Verify that lights labeled RDY, ON CYL, FAULT, WT, and RD are 
off. 

5. Open access door. 

6. Insert cartridge. 

7. Close access door. 

8. Set switch labeled RUN/LOAD to the RUN position. 

9. Wait for lights labeled RDY and ON CYL to come on. 

10. Press switch labeled WR PROT and verify that the light 
labeled WT PROT goes on and off. 

11. Press switch labeled WT PROT until light labeled WT PROT goes 
off. 

12. Verify that lights labeled FAULT, WT, and LOAD are off. 



F.14.1. 2 Dismounting 

1. Press switch labeled WT PROT and wait until light labeled WT 
PROT goes on. 

2. Set switch labeled RUN/LOAD to the LOAD position. 

3. Wait for light labeled LOAD to come on. 

4. Open access door and remove cartridge. 

5. Close access door. 
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F.15 RX8E/RX01 DISKETTE 

The RXOl Diskette is a random access, mass storage device designed to 
permit high-speed data transfer with a minimum of hardware interrupts 
and a low software overhead. A sector buffer within the RXOl allows 
asynchronous transmissions between the drive (s) and computer. 

Data are recorded on one -side of the floppy disk only. This surface 
is divided into 77 tracks. Each track has 26 sectors each of which 
contains a header field. 




Figure F-15 
RX8E/RX01 
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F.15.1 Mounting and Dismounting the RXOl Diskette 



F. 15. 1.1 Mounting RXOl 

Lift the door of one of the drives on the front of the DS310 and slide 
the COS 310 floppy diskette into the slot. Close the door over the 
disk - it will click when closed properly - the disk is now mounted. 



F.15.1. 2 Dismounting RXOl 

The RXOl Diskette is dismounted by opening the drive door and 
withdrawing the diskette. 
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APPENDIX G 
COS FILES 



There are four types of files in the COS system: source, compiler 

binary, system program, and data. Source, compiler binary and data 

files have similar structure. The fourth, system programs, uses 
standard OS/8 SAVE format. 



G.l COS SOURCE FILES 

All source files, whether control programs (e.g., for BUILD) or DIBOL 
program sources must be input with the LN command or number commands. 
This makes all source files look the same and makes them compatible 
with COS. The source file format is: 



word 
count n 


line 
number 


n-1 words, two -237 ASCII 
characters per word 



The first word contains the word count for that line. It is computed 
as 



n = (# of characters on line+1) 



+1 



The second word is the text line number, 0000-7777, base 8 (0000-4095, 
decimal) . 

The third and successive words contain stripped -237 ASCII characters 
packed two per word (e.g., AB is 4243). 



G.2 COS DATA FILES 

The format of data files is exactly the same as source files except 
there are no line numbers. 

A data file looks like: 



word 
count n 



n words, two characters 
per word 
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Word 1 of a data record contains its length in words. The next and 
successive words contain the text of the record, two stripped ASCII 
characters per word. 



G.3 COS DIBOL COMPILER BINARY 

Although the interpretation of the contents is entirely different, 
externally a file of compiler binary is structured exactly like a data 
file. That is, for each line of DIBOL source program, the 
interpretive code for that line is stored as a word count followed by 
the interpretive code to be used by RSYS. 



G.4 COS SYSTEM PROGRAMS 

All system programs (e.g., PIP, COMP, BUILD, etc.) are stored in OS/8 
SAVE format. The first block of the file is a core control block 
indicating where the rest of the blocks of the file are to be loaded. 
Each successive block is a 256 word core image. See the OS/8 Software 
Support Manual for details. 



G.5 SYSTEM AND DATA TAPE FORMATS 

COS puts a label on all tapes and disks. This label occupies the 
first 256 words of each device, of which four are the actual label, 
one is the date, and the rest may be a bootstrap. Files on DECtape do 
not use the last two blocks of storage. 

Data files are completely devoted to the storage of data, beginning at 
block 1. Each logical unit holds one data file only. Labels on data 
files are put on by the Monitor in conjunction with DIBOL programs or 
by system programs such as SORT and BUILD. 

System files have the COS Monitor, the system programs such as COMP, 
and a directory in OS/8 format. (There is a discrepancy of two years 
between directories printed by OS/8 and those printed by COS.) System 
files can also be used to save the sources of DIBOL programs, BUILD or 
SORT control specifications, or compiled DIBOL programs, but no data 
files. Their bootstrap starts up the COS Monitor. 

Figure G-1 illustrates the layout of the Monitor portion of the system 
device. As noted in the figure, COMP should be the first file in the 
file area. The location of COMP is particularly relevant when the 
binary scratch area is to be expanded. 
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Figure G-1 
Monitor Organization 
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The label on a system tape is unique and identifies it as a system 
tape. It is put on all system tapes automatically, and looks like 
[SYS] . The index of a system file looks like 

Word Contents 



(-) the number of directory entries in this block. 

1 The starting block number for file storage. 

2 Link word to next directory block, or if end. 
There are seven directory blocks on all multi-file 
devices. 

3 (unused) . 

4 (-) the number of auxiliary words per entry 
(always equals -1) . 

5 First two characters of name. 

6 Next two characters of name. 

7 Last two characters of name. 

8 Two character extension. 

9 Date. 

10 Length of file (negative) . 

11 through 255 Repeat of 5-10 for each file. 

Pseudo-DECtapes are reserved areas of disk, set aside by the SYSGEN 
program. They are allocated beginning at the first free block 
following any COS system on the disk and going to the end. The system 
index, however, knows nothing about these pseudo-DECtapes inhabiting 
the upper area of the disk. All it knows is that the available space 
for file storage only extends to block n, where n is something less 
than a full disk. 

Access 

Data tapes and pseudo-DECtapes (which may only be used as data tapes) 
will be referenced by their logical unit numbers as assigned by 
SYSGEN. What SYSGEN will actually do is set up a table like the 
following : 

Handler address /physical device # 

starting segment 

length 

handler address /device # 

starting segment 

length /parameters 



The handler address is a pointer to the device handler to use for this 
logical unit (either Disk or DECtape) . The physical device number is 
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which disk or DECtape drive to reference. The starting segment gives 
a 16-bit starting block number, which is where on the physical device 
the space allocated for this logical unit begins. This allows for 
possible future expansion to larger disks. The length is the number 
of segments reserved for this logical unit. 

For example, if logical unit 14 is assigned to 32-block area on DKl, 
the fourteenth series of entries in the table might look like: 

RK08 handler address + 1 

212 /start at segment 212(8) 

-40 /go for 40(8) segments 

So, any references to logical unit 14 would refer to blocks 
5240 (8)-6237(8) of DKl. Note that block 5240 would have a label for 
that logical unit, just as any other data tape. 

For DECtapes, one of these table entries would be essentially the 
same, except that the starting block would be and probably extend 
for 46 segments (one complete tape). Two logical units should not be 
assigned to the same DECtape, as it causes a number of problems when 
two logical units occupy a dismountable device and a file extends to 
multiple units. 
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APPENDIX H 
DIBOL DEBUGGING TECHNIQUE (DDT) 



In addition to the TRACE feature described in Chapter 1, more complex 
program debugging techniques may be implemented by specifying the /D 
option when executing a source program (see Chapter 4) or when running 
a binary program (see RUN command. Chapter 2). The features of the /D 
option include: breakpoint, variable examination, subroutine call 
traceback, and iteration. 



H.l ENTERING DDT MODE 

The command to run a binary program in DDT mode has the form 

_^RU [pronam+chainl+. . .+chainn ,f ilnaml , . . . ,f ilnamn] /D 

There is an additional amount of space required because of the /D 
option. It is 768 words plus 3 words for each label in the program 
that appears before the PROC statement. 

When the program is loaded with /D by either of the above commands, 
initial control is passed to DDT which prints an appropriate DDT 
version number followed by a "-" to indicate DDT command mode. DDT is 
now ready to accept commands. 

Whenever a CHAIN is entered, control is passed to DDT. 



H.2 DDT COMMANDS 
Command 
varnam= 

varnam=v 



Explanation 

The current contents of variable varnam is 
printed. Varnam may have single or double 
subscripts . 

Set varnam equal to the value v, where v is 
any legal alphanumeric string. 

If V has more characters than defined for 
varnam, the error message ERROR IN COMMAND is 
printed . 
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Prints the contents of the last variable 
examined . 



=v 



Sets the contents of the last variable 
examined to v. 
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Command 



$nnnn 



Explanation 

Sets a breakpoint at line number nnnn. Only 
one breakpoint may be active at a given time. 
Do not set a breakpoint at line 0. The 
breakpoint occurs prior to executing line 
nnnn. 



>n 



The breakpoint is executed at 
occurrence of line nnnn. 



the nth 



For example: 

-$300 
->4 

When the program starts to execute line 300 
for the fourth time, the breakpoint is 
executed and control is transferred to DDT. 



CTRL/Z 



Starts execution of DIBOL program. If a 
breakpoint was set in a $nnnn command, 
control reverts to DDT when nnnn is reached 
and the following message is printed: 



BREAK] 



The user may now type additional commands 
response to the "-". 



in 



The lines from which CALLs were made 
(push-down list) during execution of the 
DIBOL program is printed. This command is 
generally used after a breakpoint or system 
error has occurred to trace the execution of 
the program. This command is a caret C^) on 
the VT05 keyboard. 

NOTES 

If a DIBOL program running under DDT causes an 
error message such as ILLEGAL SUBSCRIPT or NUMBER 
TOO LONG, while a breakpoint was pending, control 
will be transferred to DDT and the DDT commands may 
then be used for program examination. If the error 
was fatal, the DIBOL program cannot be restarted by 
the CTRL/Z command. 

Once a DIBOL program is running under DDT, DDT 
cannot be restarted unless a breakpoint occurs, or 
an error occurs with a brakpoint pending. 
Therefore, if the user has no requirement for a 
breakpoint but wishes to return to DDT for program 
examination if an error occurs, it is necessary to 
set a breakpoint to a non-existent line number. 
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APPENDIX I 
DIBOL STATEMENT SUMMARY 



Statement 



ACCEPT (terminator , receiver) 



BLOCK 
CALL label 

CHAIN decimal expression 



DISPLAY (line , column, expr) 



END [/list-control] 



FINI (channel) 



FORMS (channel , skip-code) 



Explanation 

Accepts input from KBD stores it in 
receiver and stores terminating 
character as terminal code in 
terminator . 



See RECORD. 

Causes control to branch 
whose label is specified. 



to statement 



Causes the specified CHAIN to be loaded. 
Execution resumes with the first PROC 
statement in the specified CHAIN. See 
sections 1.4.3 and 2.2.6 for more 
detail . 

Display expression on screen at line and 
column specified, (0,0 = current 
location) or perform one of following 
operations. = position cursor, 1 = 
clear to end of scope, 2 = clear to end 
of line, 25 = emit a bell or beep sound. 



No carriage return, 
generated . 



line feed 



An optional statement inserted 
physical end of DIBOL program. 



IS 



at 



GO TO label 



Closes file associated with channel (if 
output file, writes end of file, file 
length). Frees channel. 

Line printer control statement. If code 
is go to top of next form; if 1-4095 
skip number of lines specified. -1 = 
skip to channel 2 and advance paper n 
lines as specified on vertical forms 
control tape (LS8E) . -2 = print 
enlarged characters for next XMIT 
statement (LS8E) . 

Unconditional branch to label. 
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statement 



GO TO (labell, . . . ,labeln) ,key 



Explanation 



If value of key is 
than and less 
branch to labelK. 
next instruction. 



K, with K greater 

than or equal to n. 

Otherwise execute 



IF (expressionl. rel .expression2) stmnt 

Execute stmnt if relationship is 
.rel. is one of the following: 

.GT. = greater than 

.LT. = less than 

.LE. = less than or equal 

.GE. = greater than or equal 

.EQ. = equal 

.NE. = not equal 

stmnt may be one of: 

GO TO label 

CALL label 

STOP 

RETURN 

ON ERROR label 

[NO] TRACE 



true 



INCR variable 



Increments value of variable by 1. 



INIT (channel, device [ ,f ilnam] [ ,unit] ) 

Associate channel with specified device 
and initialize device. For mass storage 
devices only, specify file name. If 
unit is specified, system looks for file 
on this logical unit before issuing 
MOUNT message. 

The device is one of the following: 

INPUT mass storage input data file 
OUT mass storage output data file 
UPDATE mass storage data file (fixed 

length records) for update 
KBD keyboard input 
TTY terminal output 
LPT line printer output 
CDR card reader input 
PTP paper tape punch (high speed) 
RDR paper tape reader (high speed) 
SYS input source file (on system 

device) 



[NO] TRACE 

ON ERROR label 



Stops/starts trace facility. 

Branch to label if next statement incurs 
a non-fatal error. 
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statement Explanation 

PROC[n] [/list control] [;comments] 

Begins PROCcedure section and n= maximum 
number of mass storage logical units to 
be opened at one time. If omitted, n=7 
is assumed. Causes top of form on 
compiler listing. The comments are 
printed on each page as headings. 

READ (channel , record ,rec#) Does a direct access read of data record 

into an area in core. 

RECORD [rname] [,X] 

Qj^ 'alpha initial value' 
[n]\, [decimal initial value] 



Reserves areas of core where records are 
stored during processing and defines the 
fields in the record. 

rname labels record area. 

,X overlay of another record 
area. record must be less 
than or equal to the record 
being overlayed. 

fldnam names a field within the 
record 

X repetition count (1-512) for 
an array 

n size of field (1-510 
characters) default = 1 

,P insert initial value at 

execution 

,D insert system date at 
execution 

,S assigns fldnam to the value of 
the run time options (see 
Section 1.4.16) . 

,C clears record loaded as a 

result of a CHAIN statement 
(see Section 1.4.16). 

RETURN Returns control to next statement after 

last CALL. 

START [/list control] [; comments] 

An optional statement which may appear 
anywhere. Causes top of form on 
compiler listing. 

STOP Terminates program execution and returns 

control to Monitor. 
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statement Explanation 

TRAP label Allows a DIBOL program to spool output 

to the line printer while executing the 
p r og r am . 

label is the name of the line printer 
routine (see section 1.4.21). 

WRITE (channel , record ,rec#) Does a direct access write of a data 

record to a specified file. 

XMIT (channel , record [ ,eof label]) 

Transfers data between record area and 
device attached to channel. If end of 
file occurs for an input file, branch to 
label if specified. 



Data manipulation statements: 

variable= clears variable to zeroes or blanks 

var iable=expression assignment, conversion depends upon 

types. 

var iable=expressionl, alpha literal 

alpha variable 

formatting. Types must be: A=D,A. 

variable expression action 

D D Assign. If variable is too small, drops 

high order digits. If variable is too 
big, right justified. 

D A Alpha converted to decimal then stored. 

A A Assign. If variable is too small, drops 

characters on right. If too big only 
left-most characters are changed. 

A D Decimal converted to alpha. 

R R Treated as A to A. 

where: D = decimal variable 
A = alpha variable 
R = record 
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APPENDIX J 
ERROR MESSAGE SUMMARY 



Message 



ALL UNITS ASSIGNED 



BAD 


ALPHA 


FIELD 


BUILD 


BAD 


ALPHA 


VALUE 


BUILD 
COMP 


BAD 


CHAR 




CONVEX 



BAD CHECKDIGIT 
BAD CHECKSUM 

BAD COMPILATION 

BAD DECIMAL FIELD 
BAD DECIMAL VALUE 

BAD DEFAULT FIELD 

BAD DELIM 

BAD DEPICTOR 
BAD DEV 

BAD DEVICE 



Program Explanation 

SYSGEN Attempt to assign more than 15 
units. 

Illegal entry in alpha field. 



Initial value in an alpha data 
specification did not begin or end 
with a single quotation. 

Attempted to convert an OS/8 
character for which there is no COS 
code. 



BUILD Checkdigit calculated by BUILD does 
not match the one entered. 

PATCH An attempt was made to write a 
block which was incorrectly 
patched . 

Monitor User tried to SAVE a compiled 
binary that had errors. 

BUILD Illegal entry in decimal field. 

COMP The initial value for a decimal 
data specification was incorrectly 
formed . 

BUILD Default field does not agree with 
size or type of object field. 

BUILD Fields are separated by an illegal 
delimiter . 

BUILD OUTPUT format in error. 

CONVEX Output device not same type 
physical device as system device. 

BUILD Not KBD, SYS, RDR or CDR. 

UPDATE Illegal device specified on INPUT 
statement. 
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Message 



Program 



Explanation 



BAD DIGIT AT LINE nnnn Run Time 



A character other than +, -, space, 
or the digits 0-9 was encountered 
in an alpha to decimal conversion; 
nnnn is the line number in which 
the error occurred. 



BAD DIGIT IN DECIMAL INITIAL VALUE 

BUILD 
SORT 
UPDATE 



Alpha character in a decimal 
initial value. 



BAD DIRECTORY 



BAD END STATEMENT 



PIP Attempt to reference or store a 
Monitor file on a device with no directory 
PATCH (or a directory that has been 
CONVEX destroyed) . Also an attempt to get 
a directory of a data file. 

BUILD Missing or misspelled END 
statement. 



BAD FIELD NUMBER 



BUILD Field number specified is greater 
than 2047. 



BAD INPUT STATEMENT 



BUILD Statement missing, misspelled, or 
UPDATE out of order . 



BAD KEY STMNT 



UPDATE Key in KEY statement has bad 
syntax^. 



BAD KEYWORD 



BAD LABEL 



BUILD Keyword entered was not described 
in the control program. 

Monitor Tape has no label, or its form is 
incorrect. 



BAD NUMBER 



PATCH A number with more than 4 digits, a 
non-digit, or 8 or 9 was typed. 



BAD OPTION 



BUILD Something other than C or + is 
specified in OUTPUT section. 



BAD OUTPUT FORMAT # 



BUILD Format number is wrong or out of 
range (<0 or >7) . 



BAD PROC # 



COMP The number in a PROC statement was 
not a digit from to 7. 



BAD PROGRAM AT LINE nnnn 



Run Time Attempting to run a binary program 
which contains a compilation error. 
Check compilation listing for error 
flags. Correct flagged errors, and 
recompile . 
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Message Program 

BAD RANGE CONSTRUCTION BUILD 

BAD RECORD SIZE SORT 

BAD RELATIONAL COMP 



BAD SWITCH 


SYSGEN 


BAD UPDATE COMMAND 


UPDATE 


BAD UPDATE STMNT 


UPDATE 


BAD VALUE 


UPDATE 


BAD WORK UNIT COUNT 


SORT 


BLOCK TOO BIG 


PATCH 



BLOCK NUMBER ERROR PHASE n 

TDMARK 



C-FIELD NOT PERMITTED 



BUILD 



CANT BACKSPACE PAST BEGIN OF FILE 

DAFT 



Explanation 

In RANGE portion of statement an 
open or close parenthesis or comma 
is missing. 

File contains records of variable 
length. 

An illegal relational occurs in an 
IF statement. For example, a .GX. 
instead of a .GT. 

Not /T, /C, or /L. 

Bad syntax, probably missing F, =, 
or comma. 

UPDATE statement is incorrect. 

Value in update command too long or 
incorrect. 

# of work units not in range 3-7. 

An incorrect block number was 
typed. It cannot be longer than 
the length of the file being 
patched . 



Refer to DEC-8E-EUZC-D. 

C-type fields cannot be specified 
in the INPUT section. 



Attempt was made to backspace past 
beginning of file. 



CANT BACKSPACE WITH SEQUENTIAL INPUT 

DAFT Attempted 



to backspace 
sequential input. 



with 



CCP ERROR COMP 

CHECKSUM ERROR PHASE n TDMARK 

COMMA MISSING COMP 

CONTROL BUSY ERROR RK8MRK 



Matching angled bracket (< or >) 
missing . 

Refer to DEC-8E-EUZC-D. 

No comma appeared where one was 
expected . 

Disk lOT issued when control was 
busy. 
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Message 



Program 



Explanation 



DATA INITIALIZATION MISSING 

COMP 



DATA ERROR PHASE n 
DATA RATE ERROR 

DATA TABLE OVERFLOW! 



TDMARK 
RK8MRK 



BUILD 

UPDATE 

SORT 



DESCRIPTOR TABLE OVERFLOW! 

BUILD 

UPDATE 

SORT 



No data initialization followed a 
comma in a data specification 
statement. 

Refer to DEC-8E-EUZC-D. 

The processor was busy and did not 
respond to a data break request 
within the 13 us required. The 
transfer is terminated immediately. 

Too much data. Maximum = 960 
characters . 



Too many F, T and C fields defined. 
Maximum = 160. 



DESTINATION FIELD NOT DECIMAL 

BUILD 



The destination field specified is 
not defined as decimal. 



DIBOL FILE NUMBER IN USE AT LINE nnnn 

Run Time In INIT, the channel number is 
already INITed to a mass storage 
device . 

DIBOL FILE NUMBER NOT INITED AT LINE nnnn 

Run Time An attempt was made to XMIT, READ, 
or WRITE with a channel number that 
was not INITed. 



DISK DATA ERROR 
DT n? 



RKEMRK Refer to DEC-0 8-DHRKD-A-D. 

Monitor The expected tape is not available 
on a DECtape drive. 

For example, if following a MOUNT 
message the operator has specified 
that a file should be written on 
unit 3, and unit 3 is not selected, 
or is WRITE LOCKed, this message is 
output . 

On LINCtapes there is no message. 

To recover , set switch to ENABLE 
the unit or set the dial selector 
to the proper number . Then type 
any key to continue. 
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Message 



Program 



Explanation 



END OF FILE 



Run Time The last record of an input file 
has been read and the end of file 
mark encountered but no EOF label 
was specified in the XMIT 
statement. 



END OF INPUT FILE AT RECORD nnnn 

DAFT 



END TAPE ERROR PHASE n DTMARK 

ENTER "DATE MM/DD/YY" Monitor 

ERROR IN COMMAND Monitor 

EXEC WORD ERROR RK8MRK 

EXCESSIVE GRID SIZE DAFT 

EXPECTED LABEL IS MISSING 

COMP 

EXPRESSION NOT ALLOWED COMP 



EXTRA CHARS AT END OF DATA 

BUILD 



EXTRA CHARS AT STMNT END BUILD 

SORT 
UPDATE 
COMP 

FIELD NOT DECIMAL BUILD 

FIELD NUMBER MISSING OR 

BUILD 

SORT 

UPDATE 

UPDATE 



FIELD OUT OF RANGE 



FIELD TOO LARGE OR 



Attempted to read past end of file 
mark on input. Not necessarily an 
error . 

Refer to DEC-08-EUFB-D. 

Typed an unrecognizable date. 

Miscellaneous . 

An error occurred while reading the 
EXEC, word of the sector. 

The grid printer width may not be 
greater than 130 characters. 

A required label is missing. 

An expression or bad character 
occurs to the left of an =. 



More data was entered than was 
defined in the control program. 

Characters not relating to 
statement appear on line. 



Field not defined as decimal. 



Field number or default unit number 
is missing or is or greater than 
511. 



BUILD Data entered is not within the 
range specified in the control 
program. 

COMP In a data description statement, 
the dimension was or more than 3 
digits long, or the field size was 
or larger than 511. 
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Message 
FILE NOT FOUND 

FORMAT ERROR 
FORMAT PARITY ERROR 

FULL 

HASH FIELD MISSING 



Program Explanation 

Monitor The program with the name specified 
PATCH was not found. After, for example, 
FETCH FILEX. 

RK8MRK An error occurred while reading the 
header word. 

RK8MRK A parity error occurred in either 
the Header word or Exec word while 
reading the sector. 

CONVEX Specified an output device with -S 
option and source file being 
created was filled. 

BUILD No field specified for storage of 
hash total. 



I/O ERROR ON XX, RETRY? Monitor 



I/O ERROR ON XXN, RETRY? Monitor 



I RECORD ALREADY EXISTS UPDATE 



ILLEGAL CHAIN AT LINE 0000 



System failed in three attempts to 
read from or write to a device. 

where XX is the device type and N 
is the unit number. Type N for no 
retry. Any other input causes the 
device handler to retry. 

Tried to insert a record already 
present. 

CHAIN argument does not match .RUN 
command . 



ILLEGAL DEVICE 



SYSGEN Device other than DT0-DT7 or 
DK0-DK3. 



ILLEGAL DEVICE AT LINE nnnn 

Run Time 



ILLEGAL DEVICE SWITCH PIP 



ILLEGAL OPERATOR 



COMP 



ILLEGAL RECORD # AT LINE nnnn 

Run Time 



Attempt to WRITE on a file that was 
not INITialized for UPDATE or 
attempt to READ from a file that 
was not INITialized or INITialized 
for INPUT or UPDATE. 

A switch was specified that was not 
/R, /C or /K for input or /P, /L or 
/T for output. 

A bad character was encountered in 
an expression where an operator 
would be expected. 



Record number is 0, past the end of 
the physical unit or the length 
specified in the record header word 
does not match the length of the 
XMIT block (records in data file 
are all not the same length) . 
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Message 



Program 



Explanation 



ILLEGAL SORT KEY 



ILLEGAL STMNT 



SORT 



COMP 



ILLEGAL SUBSTRING AT LINE nnnn 

Run Time 



7ILLEGAL UNIT 



Monitor 



ILLEGAL UNIT 
IN USE 

INCREMENT TOO BIG 



SORT 
Monitor 

BUILD 



INSUFFICIENT SPACE ON DEVICE 

SYSGEN 



Bad syntax on KEY statement, KEY 

too complex or KEY statement 
missing. 

The statement was not a data 

manipulation statement (it had no 

=) nor did it start with a 
recognizable keyword. 



A DIBOL PROCedure section statement 
has attempted to access a data 
field, FI(m,n) , but m=0 or m>n. 

The unit specified is not DK0-DK3 
or DT0-DT7; for example, 

WRITE FILE,XY3 
WRITE FILE, RK9 

Default unit is or > 15. 

The unit specified in answer to the 
MOUNT message is already being 
used . 

Length of increment field larger 
than length of output field. 



Attempt to allocate more segments 
than are available on a device. 



INITIAL ALPHA VALUE DOESN'T BEGIN 

BUILD 
SORT 
UPDATE 



WITH QUOTE 
Beginning quotation mark missing 
for initial alpha value. 



INITIAL VALUE TOO BIG BUILD 

SORT 
UPDATE 



The initial value specified is 
larger than the field size. 



INITIAL VALUE WRONG SIZE COMP 



INITIAL VALUE TOO SMALL BUILD 

SORT 
UPDATE 



The initial value in a data 
specification statement had a 
length different from the field 
size specified. 

The initial value specified is 
smaller than the field size. 



KEYWORD MISSING OR TOO BIG 

BUILD 



LABEL NOT ALLOWED 



COMP A symbol in an arithmetic 
expression was not of type alpha or 
decimal, or a symbol which had been 
redefined was used. 
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Message 



Program 



Explanation 



LAST INT NOT END ZONE DTMARK 
LINE # TOO LARGE Monitor 

LINE TOO LONG Monitor 



Refer to DEC-08-EUFB-D. 

Greater than 4095. 

Greater than 120 characters. 



LINE TOO LONG AT LINE nnnn 

Run Time An input line (record) overflowed 
the block into which it was read. 



LOCATION TOO BIG 



PATCH 



MARK TRACK ERROR PHASE n TDMARK 

DTMARK 



A location >= 400 was typed. 

The DECtape being used is bad. 
Try reformatting the tape. 



!*IMEMORY FAIL!*1 



MISSING CLOSE PAREN 



Monitor 



COMP 



A hardware error has 
Restart the program. 



occurred . 



No close parenthesis occurred where 
one was expected. 



MISSING CLOSE QUOTE ON ALPHA INITIAL VALUE 

SORT Quotation mark misplaced or 

UPDATE missing. 

BUILD 



MISSING FIELD NAME 
MISSING INITIAL VALUE 

MISSING OPEN PAREN 
MISSING OPERAND 

MISSING OR BAD DEVICE 
MISSING OR BAD OPTION 



BUILD Field name is missing. 

BUILD Comma was inserted after type and 
SORT size but initial value was not 
UPDATE specified. 

COMP No open parenthesis occurred where 
one was expected. 

COMP A binary operator occurs in an 

expression with no operand 

following it; or no expression at 

all occurs where one is expected. 

COMP The device in an INIT statement was 
missing or started with an illegal 
character . 

COMP In a record statement, no option 
appeared after a comma or the 
option which appeared was not X or 
C. 



MISSING OR OUT OF ORDER UPDATE 



MISSING QUOTE 



On C or D, record was not there. 
Probably because scratch file was 
not sorted. 



COMP The statement contained an odd 
number of quotes ( ' ) . 
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Message 



Program 



Explanation 



MISSING RELATIONAL 



COMP No relational appeared in an IF 
statement. 



MISSING UNIT 



UPDATE Unit number specified is a multiple 
of 16. 



NAME PREVIOUSLY DEFINED COMP 



NECESSARY FIELD MISSING BUILD 



NO 



BOOT 



The name used was previously 
defined and this statement tries to 
redefine it. 

Field specified as necessary in 
control program was not entered. 

Device switch illegal or missing. 



NO BUFFERS LEFT AT LINE nnnn 

Run Time 



NO CHANGE IN BLOCK 



PATCH 



Not enough core available for I/O 
buffers. An I/O buffer of some 
multiple of 512 characters is set 
up for each active mass storage 
file. Another possibility: too 
few files were specified in the 
PROC statement. 

An attempt was made to write a 
block but no changes were made to 
it. If this was on purpose fine 
otherwise make the changes to the 
block again. 



NO COMMA AFTER FIELD NAME 



BUILD 

SORT 

UPDATE 



No comma or a character other than 
comma was specified after the 
field name. 



NO DEFINE! 



NO END 



NO END STATEMENT 



?N0 FILE TO SAVE 



UPDATE Control file did not start with a 
DEFINE. Returns to Monitor 
immediately. 

CONVEX Entire OS/8 ASCII input file was 
read but no end of file (CTRL/Z) 
was found. 

UPDATE END Statement missing after OUTPUT 
specification. 



NO FILE AT LINE nnnn Run Time 



No file specified in RUN statement 
to satisfy INIT (SYS) command. 



Monitor Nothing in the edit work area when 
WRITE command is issued. 



NO INIT DONE 



Monitor Program attempted a read or write 
on a device not opened by the 
system program. 



J- 9 



Message 



Program 



Explanation 



NO INPUT 



NO ROOM 



NONCE ERROR 



NONEXISTENT FIELD 



NOT A OR D 



NOT BUILD FILE! 



SORT Input file is null or not enough 
MERGE input files specified for a MERGE. 

PIP Attempt to store a file on a full 
CONVEX device. 

DAFT Tried to use a feature not 
currently supported or documented. 

UPDATE Tried to update Fn where no Fn 
appeared in file description 
section. 

BUILD A character other than A or D 

COMP occurred in a data specification 

SORT statement where A or D was 

UPDATE expected. 

BUILD File did not start with DEFINE 
statements . 



NOT ENOUGH ROOM FOR SYSTEM AND FILES 

SYSGEN Device specified was too small to 
accommodate system program and 
files. 

File with specified name not found. 

on update 



NOT FOUND 
NOT I,D, OR C 

NOT LABEL 



CONVEX 
UPDATE 

COMP 



NOTHING AFTER FIELD NAME BUILD 

SORT 
UPDATE 



Bad first character 
command . 



A symbol which was not a 'label' 
occurred where a label was 
required . 

Field type and size are not 
specified after field name and 
comma. 



NUMBER REPEATED OR OUT OF ORDER 

BUILD 
SORT 
UPDATE 



# TOO LARGE 



SYSGEN 



A field sequence number is used 
more than once or is out of 
ascending order sequence. 



Number 
4095. 



entered was greater than 



NUMBER TOO LONG 



OUT OF ORDER 



Run Time A decimal field longer than 15 
digits was used in a calculation. 

UPDATE SORT Statement missing and update 
commands are not in order. 
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Message 



Program 



Explanation 



OUT OF ROOM] 



BUILD 



OUTPUT ERROR SORT 

OUTPUT RECORD TOO BIG BUILD 



PARITY ERROR 



RK8MRK 



PARITY ERROR PHASE n DTMARK 
PIP INITIALIZATION ERROR 



PROGRAM TOO BIG 



COMP 



Too many descriptors in INPUT 
section. Maximum keywords = 
approx. 121. Approx. maximum 
fields for all keywords = 192. Too 
many fields in OUTPUT section. 
Approx. maximum =128. 

Indicates a system malfunction. 

Record is larger than 510 
characters . 

A bit in data, parity or timing has 
been picked up or dropped on read. 
Transfer will continue to the end 
of the sector where the error 
occurred. Word count, current 
address information can be used to 
identify the error. 

Refer to DEC-08-EUFB-D. 

PIP unable to identify the type of 
devices resident in the system. 
Following this message, PIP 
attempts to return control to 
Monitor . 

Binary output too big for the 
binary scratch area. Remedy: Run 
PIP/n with Option E to enlarge 
scratch area. 



PROGRAM TOO BIG AT LINE nnnn 

Run Time 



Binary program does not fit in 
available core. Reduce program 
size . 



PUSHDOWN OVERFLOW AT LINE nnnn 

Run Time 



READ STATUS ERROR RKEMRK 
RECALIBRATE STATUS ERROR RKEMRK 
RECORD TOO BIG COMP 



REPLACE? 



Monitor 



Either (1) a statement is too 

complex or (2) subroutines are 

nested to a depth greater than 50, 
or a combination of the two. 

Refer to DEC-08-DHRKD-A-D. 

Refer to DEC-08-DHRKD-A-D. 

A named record exceeded 510 words 
in size. 

Duplicate file names. Type Y to 
replace. 



RETURN WITHOUT CALL AT LINE nnnn 

Run Time 



The program tried to execute a 
RETURN, but there was no place to 
go; there was no corresponding 
CALL statement. 
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Message 
SECTOR NO GOOD 

SELECT ERROR PHASE n 
SETUP? 



Program 



RK8MRK 



DTMARK 

TDMARK 
DTMARK 



STMNT TOO COMPLEX 



COMP 



SUBSCRIPT ERROR 



SUBSCRIPT NOT DECIMAL 



COMP 



COMP 



SUBSCRIPT TOO BIG AT LINE nnnn 

Run Time 



Explanation 

The program attempted to read or 
write data on a sector whose header 
words indicated a bad sector. The 
transfer is terminated immediately. 



Indicates an error in the DECtape 
setup. One of the units specified 
is in WRITE LOCK position, not 
selected, or the write flip-flop is 
unable to be set, or there may be a 
timing error. 

The statement generated too much 
code and overflowed the Compiler's 
code buffer , or it had too much 
nesting and overflowed the 
Compiler's pushdown stack. Remedy: 
break up the statement into smaller 
parts. 

No comma or close parenthesis 
occurs after a subscript. 



The type of a 
decimal . 



subscript was not 



Program attempted to destroy the 
run-time system or itself by using 
a large subscript; larger than 
that defined in the Data Definition 
section. Note that the run-time 
system does not detect all illegal 
subscripts; only those which would 
cause the user's program or the 
system to be destroyed. 



SWITCH NOT SET TO WTM OR SINGLE LINE FLAG FAILED TO SET 



SET SWITCH TO WTM. 



TDMARK Switch on the M868 module is not 
set to the WTM position or the 
timing generator for writing 
mark and timing tracks is 
setting the single line flag. 



the 
not 



SYMBOLS DEFINED BUT NOT REFERENCED; XX 

CREF Symbols were 
referenced, 
error . 



defined but not 
Not necessarily an 
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Message 



Program 



Explanation 



SYNTAX ERROR 

TEXT AREA FULL 
TIME OUT ERROR 

TIMING ERROR PHASE n 

TOO BIG 

TOO MANY FILES 
TOO MANY ITEMS 

TOO MANY SYMBOLS 1 



TOO MUCH DATA 



TRACK ADDRESS ERROR 



SYSGEN Missing comma, extra characters, 
etc . 

Monitor Greater than 8,150 characters. 

RK8MRK The control did not complete an 
operation after 32 revolutions. 

TDMARK Refer to DEC-8E-EUZC-D. 
DTMARK Refer to DEC-0 8-EUFB-D. 

BUILD Data entered is greater than the 
size of the field as defined in the 
control program. 

MERGE More than 6 input files specified. 

COMP More items appeared in a data 
initialization than were specified 
by the dimension. 

COMP A fatal error message 365 symbols 
allowed in symbol table in 8K 
system, and 511 symbols allowed in 
larger systems. The compiler stops 
compiling; no storage map can be 
produced . 

COMP Program's data division exceeds 32K 
bytes . 

RK8MRK Track, surface or sector address 
read from the disk did not agree 
with the address count registers or 
the disk drive electronics 
indicated track position 000 and 
the track counter did not agree. 
The transfer is terminated 
immediately. 



TRACK CAPACITY EXCEEDED ERROR 

RK8MRK 



UNDEFINED FIELD 



UNDEFINED FORMAT 



The program attempted to read or 
write beyond sector 17. 



BUILD Field referenced was not defined in 
field descriptor section of control 
program or a decimal field was 
being equated to an alpha field, or 
an alpha field was specified for a 
flag. 

BUILD Format number referenced but not 
defined (errors given on END 
statement) . 
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Message 

UNDEFINED NAME 
UNEXPECTED END OF FILE 
UNIT XX IS FREE 

UNRECOGNIZABLE LINE 

WRITE ERROR PHASE n 
WRITE LOCK ERROR 

WRITE STATUS ERROR 
WRONG DATA TYPE 



Program Explanation 

COMP A name is used which was never 
defined in the data section. 

BUILD Missing END statement. 
UPDATE 

SORT NOT AN ERROR - merely an 
informative message to aid the 
operator, xx is a COS unit number. 

SORT Parameter line did not start with a 
good keyword. 

TDMARK Refer to DEC-8E-EUZC-D. 

RK8MRK The program attempted to write a 
section that was write protected. 
The write operation is terminated 
immediately. 

RKEMRK Refer to DEC-0 8-DHRKD-A-D. 

COMP Mixed modes occurred in an 
expression; or an argument which 
was supposed to be decimal was not 
or one of the three arguments in a 
data manipulation statement was of 
the wrong type. 



ZERO DIVISOR AT LINE nnnn 



xxxx IS BEING IGNORED 



Run Time The program attempted to divide by 
zero. 

CREF The line specified cannot be 
interpreted . 



xxxx SHOULD BE yyyy BLK ERROR PHASE n 

DTMARK Refer to DEC-08-EUFB-D. 

xxxx SHOULD BE yyyy DATA ERROR PHASE n 

DTMARK Refer to DEC-08-EUFB-D. 
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APPENDIX K 
COMMAND SUMMARY 



The commands summarized below are described in detail in Chapter 2 of 
this manual . 



K.l COMMANDS FOR MONITOR FUNCTIONS 



Command 
BAtch pronam 

CTRL/C 

CTRL/N (COS 300 only) 

CTRL/0 



CTRL/Q (COS-310 only) 

CTRL/S (COS-310 only) 

CTRL/U 
CTRL/V 

CTRL/Z 

DAte mm/dd/yy 



Function 

Executes a string of previously stored 
Monitor commands. 

Returns control to the Monitor. 

Turns on/off imbeddded numeric keypad at 
terminal (see Table 2-1) . 

Stops/starts terminal echo of typed 
input. Also halts output from a LIST 
command and the printing of the compiler 
listing . 

Resumes output to the terminal from the 
point at which it was halted by CTRL/S. 

Halts output to console terminal. No 
output data are lost. 

Deletes the current input line. 

Stops/starts terminal echo of Monitor 
version message COS MONITOR V2.1108. 

Signals end of input and returns control 
to the Monitor. Halts display of line 
numbers from an LN command. 

Stores the specified date for assignment 
to new programs created and reports 
printed . 
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DElete pronain[ /dev] /x Removes the named source, binary or 

system program from the device 
directory. 

Directory] [physical device] [/T] 

1 /logical unit# Prints a list of programs stored on a 

physical device or a label of a file 
stored on a logical unit. 

PLease text string Displays the specified text string when 

used in a BATCH program. 

RUBOUT Erases the last character typed and 

echoes the deleted character. 
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Command 



Run [pronam] [+chainl+. 



SAve pronam [,dev] [/Y] 



Function 

+chainn] , [f ilnaml, . . . ,f ilnamn] [/xx] 

Loads and executes the named system or 
binary program using the named file. 

Stores the binary program from the 
Compiler scratch area on the named 
device . 



K.2 COMMANDS FOR EDITING FUNCTIONS 
Command 



Function 



ERase [nl] [,n2] 
FEtch pronam [,dev] 
List [nl] [,n2] [/x] 

LN [n] [,inc] [/x] 



nnnn text 
(number command) 



REsequence [n][,inc] 
WRite pronam [ ,dev] [/Y] 



Erases specified lines of text from the 
edit buffer . 

Loads the named source file into core 
from the specified device. 

Outputs the specified lines to the 
high-speed punch, line printer or 
terminal . 

Automatically displays line numbers on 
the terminal for program creation. 



Inserts the specified line number and 

text into the edit buffer. If this line 

number already exists, the new text 
replaces the old. 

Renumbers the lines of the program in 
the edit buffer . 

Stores the source program located in the 
edit buffer on the specified device. 
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APPENDIX L 
ADVANCED PROGRAMMING TECHNIQUES 



L.l ACCEPT AND DISPLAY 



L.1.1 Background 

XMIT statements were originally used when the terminal was a Teletype. 
The arrival of the VT05 display terminal introduced new concepts 
— programmable cursor control and hardware display clear. ACCEPT and 
DISPLAY statments were added to the DIBOL language to use these 
features. The terminal may now be used in two ways: 

1. As a Teletype by using XMIT statements. 

2. As a powerful data entry tool using ACCEPT and DISPLAY 
statements . 



(Refer to the ACCEPT 
proceeding further.) 



and DISPLAY statements in Chapter 1 before 



L.l. 2 Interaction of ACCEPT and DISPLAY Statements 

ACCEPT and DISPLAY statements are used extensively in data entry 
programs. These programs typically work one of two ways. The first 
asks (DISPLAYS) questions and interprets (ACCEPTS) answers. This mode 
of operation could be easily simulated by using a Teletype. The 
second method displays a format or heading on the screen and moves the 
cursor to the right or just below the question to be answered. 

The format is never cleared, but data is being entered and cleared 
continuously from the screen. This mode is used in repetitive data 
entry and updating. Quite often the four keys; up arrow, down arrow, 
left arrow, and right arrow have special meanings. For example, 
assume ten headings are displayed on the screen, indicating ten fields 
are to be entered or updated. Up arrow might be used to re-enter 
information in the first field, no matter which field is currently 
being entered; down arrow might mean no more information for any of 
these fields; left arrow might mean restart entering the current 
field; right arrow might mean go on to the next field without 
changing the current field.. 
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L.1.3 Simple Example Using ACCEPT and DISPLAY 

In order to enter a six digit customer number and a 15-character 
customer name, the program might be as follows: 

RECORD 
TCHAR,D2 
ALPHA, Al 5 
CN0,D6 
CNAME,A15 



PROC 1 



DISPLAY (1,1,1) ; CLEAR SCREEN AND POSITION CURSOR 
DISPLAY (0,0, 'CUSTOMER NO. CUSTOMER NAME') 
LOOP, DISPLAY (2, 1,2) ;CLEAR LINE 2 AND POSITION CURSOR 
ALPHA= ; CLEAR THIS FIELD 

ACCEPT (TCHAR, ALPHA) 

ON ERROR LOOP ; RE-ENTER IF NOT NUMERIC 
CNO=ALPHA 

ALPHA= ; CLEAR THIS FIELD AGAIN 

DISPLAY (2, 16,0) ; POSITION CURSOR 
ACCEPT (TCHAR, ALPHA) 
CNAME=ALPHA 

;SAVE DATA 

GO TO LOOP 



L.1.4 Generalized ACCEPT Subroutines 



L. 1.4.1 RUBOUT and CTRL/U 

Although the previous example works properly, it lacks several 
features which would be quite practical to have: 

1. Type RUBOUT to clear the previous character that was entered 
in the current field from both the program and the display. 

2. Type CTRL/U (a DEC convention) or left arrow to clear the 
entire current field from both the program and the display. 

Since our data acceptance is getting more sophisticated, it can best 
be performed by calls to a subroutine. The following two subroutines 
and test programs will accept data from the terminal and use the 
RUBOUT key and the CTRL/U (or left arrow) key as previously specified. 
The first program uses the hardware clearing features built into the 
VT05. Unfortunately, this destroys data if it is on the same line and 
to the right of what is being ACCEPT 'ed. 
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START ; SUBROUTINE VT05 CORRECTS REMAINDER OF LINE 

;FOR ERRORS 

RECORD 
KBDBUF, A72 ; STORAGE FOR KEYBOARD INPUT 

RECORD ,X 
KBDIN, 72A1 





RECORD 


ROW, 


D2 


COL, 


D2 ,' 


TCHAR, 


D2 'j 


CHAR, 


Al 


VT05IN, 


D2 


VTLIM, 


D2 



BEGIN, 



;WORK AREA 
CURSOR Y-COORDINATE ON ENTRY TO SUBROUTINE VT05 
(NEEDED FOR CORRECTION ONLY) 

CURSOR X-COORDINATE ON ENTRY TO SUBROUTINE VT05 
(NEEDED FOR CORRECTION ONLY) 

TERMINATING CHARACTER IN AN ACCEPT STATEMENT 
INPUT CHARACTER FROM AN ACCEPT STATEMENT 
NUMBER OF CHARACTERS ACCEPTED BY SUBROUTINE VT05 
NUMBER OF CHARACTERS TO BE ACCEPTED BY 
SUBROUTINE VT05 

PROC 

DISPLAY(1,1,1) ;CLEAR SCREEN 

DISPLAY (1,40, 'ERASED IN CORRECTION') 

DISPLAY (1,1, 'NAME: ') 

R0W=1 

C0L=6 

VTLIM=20 ;20 CHARS MAX. 

CALL VT05 

IF (KBDBUF.EQ. 'END') STOP 

GO TO BEGIN .*********** 



*********** 



SAMPLE 

TEST 
PROGRAM 



CALLING SEQUENCE 
ROW= 
COL= 
VTLIM= 

CALL VT05 



SET Y-COORDINATE 

SET X-COORDINATE 

SPECIFY MAXIMUM NUMBER OF CHARS 

TO ACCEPT 



ACCEPT A MAXIMUM OF VTLIM CHARACTERS AT LOCATION SPECIFIED BY 
ROW AND COL. RETURN WHEN VTLIM CHARACTERS, A TERMINATION CHARACTER, 
OR A SPACE IS ENTERED. RUBOUT DELETES LAST CHARACTER ENTERED AND 
CTRL/U ELIMINATES THE ENTIRE ENTRY RUBOUT AND CTRL/U CLEAR THE 
REMAINDER OF THE LINE (FASTER THAN DISPLAYING SPACES) 



VT05, VT05IN= 
KBDBUF= 

VT052, ACCEPT (TCHAR, CHAR) 

IF (TCHAR. EQ.O) GO TO VT053 
IF (TCHAR. EQ. 21) GO TO VT054 



IF (TCHAR. EQ. 32) GO TO VT055 
RETURN 

VT053, IF (CHAR. EQ.' ') RETURN 



INCR VT05IN 

KBDIN (VT05IN) =CHAR 

IF (VT05IN.EQ. VTLIM) RETURN 



NON-TERMINATING CHARACTER 

CTRL/U (TO USE LEFT ARROW ON 

VT05 KEYBOARD, CHANGE 21 TO 

8) 

RUBOUT 

TERMINATING CHARACTER OTHER 

THAN RUBOUT OR CTRL/U 

SPACE IS A TERMINATING CHAR 

(TO ELIMINATE THIS FEATURE, 

REMOVE THIS STATEMENT AND PUT 

LABEL ON NEXT STATEMENT.) 

VT05IN=# OF INPUT CHARACTERS 

;THE SPECIFIED NUMBER OF 
; CHARACTERS WERE INPUT 
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GO TO VT052 
VT054, IF(VT05IN.EQ.O) GO TO VT05 
DISPLAY (ROW, COL ,2) 

GO TO VT05 
VT055, IF(VT05IN.EQ.0) GO TO VT052 
KBDIN(VT05IN)= 
VT05IN=VT05IN-1 
DISPLAY (ROW, COL+VT05IN, 2) 

GO TO VT052 



; CLEAR CHARACTERS ENTERED 
;T0 END OF LINE 



;RUBOUT PREVIOUS CHARACTER 
;T0 END OF LINE 



L.1.4.2 Sample CLEAR Program 

The next program clears incorrectly entered data by displaying spaces. 
This is obviously much slower than using the hardware display clear 
feature, but data on the same line and to the right is not cleared. 

START ; SUBROUTINE VT05 CORRECTS ONLY CHARACTERS IN ERROR 

RECORD 
KBDBUF, A72 ; STORAGE FOR KEYBOARD INPUT 

RECORD ,X 
KBDIN, 72A1 



BLNK72, 
ROW, 

COL, 

TCHAR, 
CHAR, 
VT05IN, 
VTLIM, 

VT05XX, 

BEGIN, 



RECORD 

A72 

D2 

D2 

D2 
Al 
D2 
D2 



;WORK AREA 
72 BLANK CHARACTERS 
CURSOR Y-COORDINATE ON ENTRY TO SUBROUTINE VT05 

(NEEDED FOR CORRECTION ONLY) 
CURSOR X-COORDINATE ON ENTRY TO SUBROUTINE VT05 

(NEEDED FOR CORRECTION ONLY) 

TERMINATING CHARACTER IN AN ACCEPT STATEMENT 
INPUT CHARACTER FROM AN ACCEPT STATEMENT 
NUMBER OF CHARACTERS ACCEPTED BY SUBROUTINE VT05 
NUMBER OF CHARACTERS TO BE ACCEPTED BY 
SUBROUTINE VT05 
TEMPORARY STORAGE FOR SUBROUTINE VT05 



D2 

PROC 

DISPLAY (1,1,1) ;CLEAR SCREEN 

DISPLAY (1,40, 'NEVER ERASED') 

DISPLAY (1,1, 'NAME: ') 

R0W=1 

C0L=6 

VTLIM=20 ;20 CHARS MAX. 

CALL VT05 

IF ( KBDBUF. EQ. 'END') STOP 

GO TO BEGIN 



*********** 



SAMPLE 

TEST 
PROGRAM 



*********** 



CALLING SEQUENCE 
ROW= 
COL= 
VTLIM= 

CALL VT05 



;SET Y-COORDINATE 

;SET X-COORDINATE 

; SPECIFY MAXIMUM NUMBER OF CHARS 

;T0 ACCEPT 



;ACCEPT A MAXIMUM OF VTLIM CHARACTERS AT LOCATION SPECIFIED BY 

;ROW AND COL. RETURN WHEN VTLIM CHARACTERS, A TERMINATION CHARACTER, 

;0R A SPACE IS ENTERED. RUBOUT DELETES LAST CHARACTER ENTERED AND 
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CTRL/U ELIMINATES THE ENTIRE ENTRY RUBOUT AND CTRL/U DISPLAY 
SPACE (S) TO DELETE ONLY THE NECESSARY CHARACTERS (NOT THE 
REMAINDER OF THE LINE) 



VT05, VT05IN= 
KBDBUF= 

VT052, ACCEPT (TCHAR, CHAR) 

IF (TCHAR.EQ.O) GO TO VT053 
IF (TCHAR.EQ.21) GO TO VT054 



IF (TCHAR.EQ.32) GO TO VT055 
RETURN 

VT053, IF (CHAR. EQ.' ') RETURN 



INCR VT05IN 

KBDIN (VT05IN) =CHAR 

IF (VT05IN.EQ.VTLIM) RETURN 



GO TO VT052 
VT054, IF(VT05IN.EQ.0) GO TO VT05 

DISPLAY (ROW, COL, BLNK72(1,VT05IN) 

DISPLAY (ROW, COL, 0) 

GO TO VT05 
VT055, IF(VT05IN.EQ.O) GO TO VT052 

KBDIN (VT05IN)= 

VT05IN=VT05IN-1 

VT05XX=VT05IN+COL 

DISPLAY (ROW, VT05XX, ' ') 

DISPLAY (ROW, VT05XX,0) 

GO TO VT052 



NON-TERMINATING CHARACTER 

CTRL/U (TO USE LEFT ARROW 

ON VT05 KEYBOARD, 

CHANGE 21 TO 8) 

RUBOUT 

TERMINATING CHARACTER OTHER 

THAN RUBOUT OR CTRL/U 

SPACE IS A TERMINATING CHAR 

(TO ELIMINATE THIS FEATURE, 

REMOVE THIS STATEMENT) 

VT05IN=# OF INPUT CHARACTERS 

;THE SPECIFIED NUMBER OF 
; CHARACTERS WERE INPUT 



) ; CLEAR CHARACTERS ENTERED 
; REPOSITION CURSOR 



; RUBOUT PREVIOUS CHARACTER 
; REPOSITION CURSOR 



L.1.4.3 Programmable Numeric Keypad 

In addition to the features found in the previous program, the 
following features might also be desired: 

1. Programmable numeric keypad (not to be confused with the 
CTRL/N feature of COS-300 which is described in Chaper 2 and 
is not programmable) . 

2. Right justification of numeric fields. 

3. Automatic cursor positioning. 

These features can be found in the following subroutine and test 
program: 
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START ; SUBROUTINE VT05A AND VT05N 

RECORD 

KBDBUF, A72 ; STORAGE FOR KEYBOARD INPUT 

RECORD ,X 
KBDINr 72A1 





RECORD 


BLNK72, 


A72 


ROW, 


D2 


COL, 


D2 


TCHAR, 


D2 


CHAR, 


Al ; 


VT05IN, 


D2 


VTLIM, 


D2 


VT05I, 


Dl 


VT05TA, 


7A1, 'M' ,' 


VT05SW, 


Dl 


VT0515, 


D15 ; 


VT05XX, 


A16 ; 




PROC 



;WORK AREA 
72 BLANK CHARACTERS 
CURSOR Y-COORDINATE 
CURSOR X-COORDINATE 

TERMINATING CHARACTER IN AN ACCEPT STATEMENT 
INPUT CHARACTER FROM AN ACCEPT STATEMENT 
NUMBER OF CHARACTERS ACCEPTED 
NUMBER OF CHARACTERS TO BE ACCEPTED 
INDEX FOR VT05TA 

J','K','L','U','I','0' ; NUMERIC KEYPAD OVERLAY KEYS 
CLEARED FOR ALPHA INPUT, SET TO 1 FOR NUMERIC INPUT 
CONTAINS NUMERIC INPUT FOR VT05N ENTRY (NOT CHANGED 
OR USED IN VT05A ENTRY) 
TEMPORARY STORAGE FOR REDISPLAY OF NUMERIC INPUT 



DISPLAY(1,1,1) ;CLEAR SCREEN 
BEGIN, INCR ROW 

IF (ROW .GT. 20) STOP 

DISPLAY (ROW, 53, 'NOT ERASED') 

DISPLAY (ROW, 1, 'NAME: ') 

C0L=7 

VTLIM=20 ;20 CHARS. MAX 

CALL VT05A 

IF (KBDBUF.EQ. 'END') STOP 

DISPLAY (ROW, 30, 'NO: ') 

COL=34 

VTLIM=15 

CALL VT05N 

GO TO BEGIN 



*********** 



SAMPLE 



TEST 



PROGRAM 



*********** 



CALLING SEQUENCE 

ROW= ;SET Y-COORDINATE 

COL= ;SET X-COORDINATE 

VTLIM= ; SPECIFY MAXIMUM NUMBER OF CHARACTERS 

;T0 ACCEPT 
CALL VT05A (OR VT05N) ;VT05A IS FOR ALPHANUMERIC 

; INPUT; VT05N IS FOR NUMERIC INPUT 

ACCEPT A MAXIMUM OF VTLIM CHARACTERS AT LOCATION SPECIFIED BY ROW 
AND COL. RETURN WHEN VTLIM CHARACTERS OR A TERMINATION CHARACTER 
IS ENTERED. FOR NUMERIC INPUT, A SPACE IS A TERMINATOR. 
RUBOUT DELETES LAST CHARACTER ENTERED AND CTRL/U ELIMINATES THE 
ENTIRE ENTRY. RUBOUT AND CTRL/U DISPLAY SPACE (S) TO DELETE ONLY 
THE NECESSARY CHARACTERS (NOT THE REMAINDER OF THE LINE) . 
FOR NUMERIC INPUT, THE ENTIRE ENTRY IS REDISPLAYED RIGHT-JUSTIFIED, 
WITH LEADING ZEROS SUPPRESSED. (VT0515 CONTAINS THE NUMBER 
ON RETURN TO THE CALLING PROGRAM) . 



VT05A, 

VT05N, 
VT05, 



VT05SW= 
GO TO VT05 
VT05SW=1 
VT05IN= 
KBDBUF= 



; ENTRY FOR ALPHANUMERIC INPUT 
; ENTRY FOR NUMERIC INPUT 
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VT052, 



VT052X, 
VT052y, 



VT053, 



VT053B, 



VT053C, 
VT053X, 



VT054, 
VT055, 



VT056, 



DISPLAY (ROW, COL, 0) 
ACCEPT (TCHAR,CHAR) 
IF(TCHAR.EQ.O) GO TO VT053 
IF(TCHAR.EQ.21) GO TO VT054 



; POSITION CURSOR 



; NON-TERMINATING CHARACTER 

;CTRL/U (TO USE LEFT ARROW 

;0N VT05 KEYBOARD, 

; CHANGE 21 TO 8) 

; RUBOUT 

;N0 INPUT EXCEPT TERMINATING 

; CHARACTER 

/ALPHANUMERIC INPUT 

; NUMERIC INPUT (CAN'T EXCEED 

;15 DIGITS) 

VT05XX(1,VTLIM+1)=VT0515,'XXXXXXXXXXXXXXX-' ;ALLOWS NEGATIVE 

; NUMBERS 

DISPLAY (ROW, COL, VT05XX(1,VTLIM+1)) ;DISPLAY NUMERIC INPUT 

; RIGHT-JUSTIFIED AND ZERO 



IF (TCHAR.EQ.32) GO TO VT05.5 
IF (VT05IN.EQ.0) RETURN 

IF (VT05SW.EQ.0) RETURN 
VT0515=KBDBUF (1 , VT05IN) 



RETURN 

IF (VT05SW.NE.1) 

IF (CHAR.EQ. • ') 



GO TO VT053X 
GO TO VT052X 

GO TO VT053X 



GO TO VT053B 
GO TO VT053X 



;CHECK FOR NUMERIC KEYPAD 
;0-9 INPUT 



IF (CHAR.EQ.'-') 

VT05I= 

IF (CHAR.LT. '0') 

IF (CHAR.LE. '9') 

INCR VT05I 

IF (CHAR.EQ.VT05TA(VT05I) ) GO TO VT053C ;MATCH 

IF (VT05I.NE.7) GO TO VT053B 

DISPLAY (0,0,25) 

GO TO VT05 



; SUPPRESSED 

;SAVE ALPHANUMERIC INPUT 
; SPACE AS A TERMINATING 
; CHARACTER FOR NUMERIC INPUT 
; MINUS SIGN IS OK 



CHAR=VT05I-1 

DISPLAY (ROW, COL+VT05IN, CHAR) 

INCR VT05IN 

KBDIN(VT05IN)=CHAR 

IF (VT05IN.EQ.VTLIM) GO TO VT056 

GO TO VT052 

IF (VT05IN.EQ.0) GO TO VT05 

DISPLAY (ROW, COL, BLNK72 (1,VT05IN) ) 

GO TO VT05 

IF (VT05IN.EQ.0) GO TO VT052 

KBDIN(VT05IN)= 

VT05IN=VT05IN-1 

VT05XX=VT05IN+COL 

DISPLAY ( ROW, COL+VT 05 IN, ' ') 

DISPLAY (ROW, COL+VT05IN,0) 

GO TO VT052 

IF(VT055W.EQ.l) GO TO VT052Y 

RETURN 



NO MATCH, TRY AGAIN 

SOUND BELL — NOT NUMERIC INPUT 

START OVER (DON'T CLEAR 

THE ERROR) 

SAVE PROPER VALUE 

REDISPLAY NUMERIC VALUE 

VT05IN=# OF INPUT CHARACTERS 

;THE SPECIFIED NUMBER OF 
CHARACTERS WERE INPUT 



; CLEAR CHARACTERS ENTERED 



; RUBOUT PREVIOUS CHARACTER 
; REPOSITION CURSOR 
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L.1.4.4 Special Function Keys 

For those who would like to have a subroutine that uses special 
function keys, such as up arrow and down arrow, or a new feature, such 
as alpha override on a numeric field, there is a simple solution — 
understand the previous subroutine and modify it to your needs. 



L.1.4.5 Escape Codes 

A command protocol is build around the Escape code (033) (27 decimal) 
to implement those commands needed by the VT50 but not found in 7-bit 
ASCII. Upon receiving the Escape code 033, the terminal is set to 
Escape mode and treats the next character received as a command. 
Commands created in this manner are called Escape Sequences. 

In order to use the VT50 cursor positioning keys as terminators for an 
ACCEPT statement, the DIBOL program must, check for escape terminator 
code (27) and then execute another ACCEPT statement into an Al alpha 
variable. The contents of this variable can be checked to determine 
which key was typed. The program then will probably erase the alpha 
character entered in this manner and go to the appropriate routine for 
the key that was typed. 

SPECIAL ESCAPE SEQUENCES 

VT50 (only) 

2 7 -A ^ > 

27-B 4. I Cursor Positioning 

27-C -^ ( Functions 

27-D " j 

27-P ^Special function keys at top 

27-Q lof numeric keypad ** 

27-R J (Unlabeled at present) 

**Escape sequences on the VT50 other than cursor positioning 
functions are subject to change in future CRT terminals. 



L.2 DIRECT ACCESS TECHNIQUES 

L.2.1 Background 

A file may contain records of fixed or variable length. With COS 300 
direct access cannot be performed on a file containing variable length 
records. 

Records are written in 512 character blocks. Regardless of the record 
size, the operating system automatically blocks the records into 512 
character blocks. The size of a record (in characters) is two plus 
the size of all the fields in the record. (The first two characters 
are the record size in characters divided by two.) If the resulting 
size is odd, add one character since only an even number of characters 
may be written. For example, if there are two fields in a record 
which are defined as a D9 field and an A88 field, the record size is 
100 (2+9+88+1) . The operating system will pack five records and 
twelve characters into the first block, 88 characters, four records 
and 24 characters into the second block, etc. 
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when this file is later processed, either sequentially (defined as 
input in an INIT statement) or thru direct access (defined as UPDATE 
in an INIT statement) , the operating system will completely restore 
the record even if it overlaps two blocks, before passing it to the 
DIBOL program. 



L.2.2 The Reason for Direct Access 

Many applications involve the processing of data sequentially. For 
example, a transaction file is entered in random order, sorted and 
then used to update a master file sorted in the same sequence. Errors 
in the transaction file cannot be found until the UPDATE program is 
run. The errors are corrected and a new transaction file is made for 
the corrected items, which is then sorted and run against the master 
file. This process continues until no more errors exist. This type 
of processing evolved 20 years ago with the age of electronic data 
processing. Systems specialists have desired a better method of 
operation. The best way is to verify when data is entered that it is 
correct. The operator keying the data file should be able to interact 
with the master file. This is now possible with COS 300. For 
example, a program can be written in which an operator entering 
payroll information could type an employee number and know within 
1/lOth of a second whether this employee exists on the master file. 
This would be impossible with sequential processing of the master 
file, since the operator would spend 90% of her time waiting for the 
employee record to be found. Direct access permits retrieval of any 
desired record without processing any other records. 



L.2.3 How It Works In DIBOL 

DIBOL permits a program to access any record in a file by specifying 
the desired record number. Since the operator is specifying some code 
(which is usually not a record number) the program will have to 
convert this code to the record number containing this code. The 
remainder of this section on direct access will explain several 
methods to do this. 



L.2.4 Unsorted File 

Assume that you have an unsorted file containing 1 to 99 records. 
Each record contains a "key" field as well as other fields. This key 
will be used for direct access. Look at the following program. 
Notice that the first thing done is to fill up a table. There is a 
one to one correspondence between each element in the table and each 
record in the file. Also note that no I/O is necessary to determine 
if a specified code is in the master file since this code would not 
have a match in the table lookup. 





RECORD MASTER 


KEY, 


D5 


/ 


A90 




RECORD ; 


TABLE , 


100D5 


1, 


D3 


LOOKUP, 


D5 



COULD BE ANY SIZE DECIMAL OR ALPHA FIELD 

REMAINDER OF FILE 

WORKING STORAGE 

TABLE CONTAINING KEYS 

INDEX 
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PROC 1 

INIT(1, INPUT, 'FILNAM') 
LOAD, XM IT (1, MASTER, EOF) 

INCR I 

TABLE(I)=KEY 

GOTO LOAD 
EOF, FINI(l) 

INCR I 

TABLE (I) =99999 ; INDICATES 

INIT(1, UPDATE, 'FILNAM') 



END OF TABLE 



; LOOKUP CONTAINS CODE FOR MASTER FILE LOOKUP 



1 = 
FINDIT, INCR I 

IF (TABLE (I ) .EQ. LOOKUP) GO TO FOUND 
IF(TABLE(I) .EQ. 99999) GO TO NONE 
GOTO FINDIT 



; MATCH 
;N0 MATCH 



FOUND, READ (1, MASTER, I) 



;READ THE ITH RECORD 
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L.2.5 Sorted File 

Take the same circumstances as in section 2.4 except that the file is 
sorted by key. Filling the table is the same, but table lookup is 
faster since the code is not compared to every element in the table 
(as in example in section 2.4). Thus, a "no match" condition is known 
as soon as the table element exceeds the code. 

It would also be possible to cut down the number of comparisons in the 
table lookup by comparing the middle of the table to the code, 
determine which half of the table might contain the code, check the 
middle of that . half of the table, and so on until the element were 
found. This techique would be faster, but obviously, the programming 
would be much more complicated. 



; WORKING STORAGE 



INIT(1, INPUT, 'FILNAM') 
LOAD, XMIT(1, MASTER, EOF) 

INCR I 

TABLE(I)=KEY 

GOTO LOAD 
EOF, FINI(l) 

INCR I 

TABLE (I) =99999 ; INDICATES END OF TABLE 

INIT(1, UPDATE, 'FILNAM') 





RECORD 


MASTER 


KEY, 


D5 




1 


A90 
RECORD 




TABLE, 


100D5 




I. 


D3 




LOOKUP, 


D5 
PROC 1 





; LOOKUP CONTAINS CODE FOR MASTER FILE 



1 = 
FINDIT, INCR I 



IF (TABLE (I ) .EQ. LOOKUP) GO TO FOUND ;MATCH 
IF (TABLE (I) .GT. LOOKUP) GO TO NONE ;N0 MATCH 
GOTO FINDIT 



FOUND, READ (1, MASTER, I) 



;READ THE ITH RECORD 



It is impractical to do direct access with DIBOL on an unsorted file 
containing many records, since an exceedingly large table would be 
needed. This will become apparent in section 2.6. 

L.2.6 Rough Table, No Index File 

At some point a file will contain too many records for each key to be 
saved in a table. When this point is reached, two solutions are 
available. The first is to create a "rough" index table containing 
every 10th or 20th key. For lookup, the rough index will specify 
within 10 or 20 records on the master file which one is desired. 
These 10 or 20 records are then sequentially examined to find the 
desired record (see the following program example) . The second 
solution is to create a "rough" index table and a "fine" index file. 
In this method, the rough index table specifies within 10 or 20 
records on the index file. The index file is then sequentially 
examined to find the desired key. If a match occurs, the master file 
is then read. 
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Why go through the extra step of an index f 
through 10 or 20 records on the maste 
number of I/O reads. For example, a master 
record would take up to four I/O reads to 
the rough index could narrow within 20 r 
2.1 — record size and records per block 
would only take one I/O read to find 
technique becomes faster as the size 
increases. Refer to section 2.7 for an 
method . 



ile instead of searching 
r file? To cut down on the 
file of 98 characters per 
find the desired record if 
ecords (refer to section 
) . An index file technique 
the master record. This 
of the master file record 
example using index file 





RECORD MASTER 


KEY, 


D5 


/ 


A90 




RECORD 


TABLE , 


100D5 


I, 


D4 


J, 


D4 


LOOKUP, 


D5 




PROC 1 




INIT (1, INPUT 



; WORKING STORAGE 
;1ST,21ST,41ST KEY, ETC. 



LOAD, XM IT (1, MASTER, EOF) 

INCR I 

IF ( I. NE. 1/2 0*2 0+1) GO TO LOAD 

INCR J 

TABLE(J)=KEY ;SAVE ONLY 1ST, 21ST, 41ST KEYS ETC. 

GO TO LOAD 
EOF, FINI(l) 

INCR J 

TABLE (J) =99999 ; INDICATES END OF TABLE 

INIT (1, UPDATE, 'FILNAM') 

; LOOKUP CONTAINS CODE FOR MASTER FILE 

1=1 
ROUGH, INCR I 

IF (TABLE (I) .LE. LOOKUP) GO TO ROUGH ;N0 ROUGH MATCH YET 

I=(I-2)*20 ;SET I TO BEGINNING OF ROUGH INDEX MINUS 1 
FINE, INCR I 

READ (1, MASTER, I) 

IF (KEY. LT. LOOKUP) GO TO FINE ;N0 MATCH YET 

IF (KEY.GT. LOOKUP) GO TO NONE ;N0 MATCH 

; MATCH 
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L.2.7 Rough Table Plus Index File 



KEY, 



TABLE, 

I, 

J, 

LOOKUP, 

XKEY, 



LOAD, 



EOF, 



; WORKING STORAGE 
;1ST,21ST,41ST KEY ETC 



; INDEX FILE 



RECORD MASTER 

D5 

A90 

RECORD 

100D5 

D4 

D4 

D5 

RECORD INDEX 

D5 

PROC 2 

INIT(1, INPUT, 'FILNAM') 

INIT( 2, OUTPUT, 'XFILE') 

XM IT (1, MASTER, EOF) 

INCR I 

XKEY=KEY 

XMIT(2,INDEX) ;CREATE FINE INDEX FILE 

IF (I. NE. 1/20*20+1) GO TO LOAD 

INCR J 

TABLE(J)=KEY 

GO TO LOAD 

FINI(l) 

FINI(2) 

INCR J 

TABLE (J)=99999 

INIT(1, UPDATE, 'FILNAM') 

INIT( 2, UPDATE, 'XFILE') 



;SAVE ONLY 1ST, 21ST, 41ST KEYS ETC. 



; INDICATES END OF TABLE 



; LOOKUP CONTAINS CODE FOR MASTER FILE 

1=1 
ROUGH, INCR I 

IF (TABLE (I) .LE. LOOKUP) GO TO ROUGH ;N0 ROUGH MATCH YET 

I=(I-2)*20 ;SET TO BEGINNING OF ROUGH INDEX MINUS 1 
FINE, INCR I 

READ (2, INDEX, I) ; READ INDEX RECORD 

IF (XKEY. LT. LOOKUP) GO TO FINE ;N0 MATCH YET 

IF (XKEY. GT. LOOKUP) GO TO NONE ;N0 MATCH 

READ (1, MASTER, I) ; MATCH 



L.2.8 Summary 

This discussion on direct access has not described all situations. In 
cases where the master file is between 2,000 and 40,000 records, the 
approach might be to have a very rough table, a rough index file, a 
fine index file and a master file. Several other techniques have been 
developed for direct access, but since they are more difficult to use, 
a discussion of them will be omitted at the present time. 

It would also be possible to work with a large unsorted master file. 
An index file is created containing two fields: the key field and the 
record number of the master file. The index file is then sorted by 
key. When a match is found on the key field of the index file, the 
program would use the record number field to read the proper record of 
the unsorted master file. 
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Creation of an index table or an index file may be done in a separate 
program. This could save from several seconds to several minutes each 
time the program is run. Thus when a master file is updated (perhaps 
on a weekly or monthly basis) , the index file would then be created 
only once during this time period. 



L.3 DIRECT ACCESS NOTES 



L.3.1 XMIT Statements Used With Direct Access 

XMIT statements may be interspersed with direct access operations on a 
file. An XMIT following a READ with record number N is equivalent to 
a READ of record number N+1. Successive XMIT's read records N+2 , N+3 , 
etc . 

An XMIT following a WRITE of record number N transmits data to record 
number N+1. 

CAUTION 

Records N+2 to the end of the file may be changed 
by successive XMIT's after a WRITE. However, if 
the user wants to change a series of records in 
the middle of the file, he should not use a WRITE 
followed by several XMIT's. 

The XMIT statement used after a WRITE statement has the following 
useful applications. 



L.3. 1.1 Truncating a File 

To truncate a file after record N use the following sequence 

READ (channel , record ,N) 
WRITE (channel , record ,N) 
XMIT (channel ,NULL,DUMEOF) 

DUMEOF , FINI (channel ) 

where NULL is a record with no contents defined by: 

RECORD NULL 
RECORD 
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L.3.1.2 Appending to a File 

To append records to the end of a file with N 
following sequence: 



READ (channel , record ,N) 
WRITE (channel , record ,N) 
XMIT (channel , record) 
XMIT (channel , record) 



records, use the 



; APPEND RECORDS TO FILE 



XMIT (channel ,NULL,DUMEOF) 



DUMEOF, FINI (channel) 

L.3.1.3 Rewriting A File 

To rewrite a file from record N to the end of the file, use the 
following sequence: 

WRITE (channel , record ,N) 
XMIT (channel , record) 
XMIT (channel , record) 



XMIT (channel ,NULL,DUMEOF) 



DUMEOF , FINI (channel ) 

L.4 NUMERIC FIELD VERIFICATION 

Any numeric field that is first entered in a DIBOL program should be 
checked to determine if it contains only decimal data. The numeric 
field should be read as an alpha field through an XMIT or ACCEPT 
statement. Then it is moved to a decimal field. This move is 
preceded by an ON ERROR statement to check for non-numeric data. For 
example: 



RECORD 
TCHAR, D2 
DECMAL, D5 
ALPHA, A5 
PROC 



RECORD A 
ALPHA, A5 
DECMAL, D5 

PROC 1 



ALPHA= 

ACCEPT (TCHAR, ALPHA) 

ON ERROR FIX 

DECMAL=ALPHA 



XMIT (n, A) 

ON ERROR FIX 

DECMAL=ALPHA 
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with an alpha-to-decimal move, many checks are done. Some of them 
include right justification, + and - sign conversion and ignoring 
spaces. The following examples should cover all cases: 



ALPHA 

123' 

123 • 

00123" 

-123' 

123-' 

-123-' 

12-3' 

1-2-3' 

1+2+3' 

1+2-3' 

1 23 ■ 

0012S' 



DECIMAL 

00123 

00123 

00123 

0012S 

0012S 

00123 

0012S 

00123 

00123 

0012S 

00123 

ILLEGAL 



The only legal characters in an alpha-to-decimal 
space, +, and -. 



move are 



to 9, 



If a data file is written which contains numeric fields, these fields 
must be read as numeric. If they contain a negative number, the least 
significant character contains a minus sign. For example, -37 would 
look like 3W. If this field were read as alpha, and then converted to 
numeric, a run time error would occur since any letter of the alphabet 
is illegal in a alpha-to-dec imal conversion. 



L.5 CHAIN STATEMENT NOTES 



L.5.1 Interaction of CHAIN and INIT (n,SYS) 

SYS input files may be specified in a RUN statement which also 
specifies CHAIN programs. However, the method of accessing such files 
must adhere to the following rules. 



1. All CHAIN files must be listed in the RUN command before 
SYS FILES. FOR EXAMPLE: 



the 



. RUN PR0G+CHAIN1+CHAIN2 , INPl , INP2 

2. Any CHAIN which is to open the first SYS input file must 
first "skip over" the remaining CHAIN files by issuing dummy 
INIT (n, SYS) statements. In the above RUN command, for 
example, in order to read file INPl, the program PROG would 
have to issue two dummy INIT (n, SYS) statements. CHAIN2 would 
not have to issue any dummy statements since it is the last 
CHAIN program. 
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If the RUN command were: 

RUN PROG, sourcel, . . . ,source7 

the source files could be processed more than once by executing a 
CHAINO statement in PROG. 



L.5.2 Communication Between CHAINS 



L.5.2.1 File Status 

All file status information is destroyed between CHAINed programs. 
Therefore, all OUTPUT and UPDATE files should be FINI'd before 
executing a CHAIN to prevent the loss of information. 



L.5.2. 2 Clearing CHAINed Records 

Any DIBOL record in a program loaded into core directly by the .RUN 
command is automatically cleared. If the record is loaded in a 
program by the CHAIN statement in the PROC section of another program, 
it will retain whatever contents it may have had in the previous 
program unless the clear option ( ,C) is specified for the record. 



L. 5.2.3 Tranferring Variable Values 

For the value of a variable to be successfully transmitted from one 
CHAIN 'ed program to another, the variable in which the value appears 
must occupy the same location in both CHAIN programs. This may be 
accomplished by either of two methods: 

1. Define all records which are to be passed between CHAIN 
programs before other records, and make the declarations 
identical (except for variable names which may be different). 

Example: 

CHAINl CHAIN2 

RECORD RECORD CPINFO 

OUST, A30 OUST, A30 

PROD, D2 PCODE, D2 

RECORD INVENT RECORD INVENT 

STOCK, D4 QUANTY, D4 



2. Use the Storage Maps, produced by the compiler, for the two 
CHAIN programs to verify that the desired variables occupy 
the same storage location. 
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L.5.3 Multiple CHAIN Entry Points 

Sometimes it is desirable to have several entry points into a CHAIN 
program. However, the CHAIN statement always starts execution of the 
CHAINed program at the first statement following the PROC statement. 
Using the technique of transferring variable values between CHAINed 
programs (discussed in Section 5.2.3), multiple entry points can be 
programmed as indicated in. the following example. 



CHAINl 



CHAIN2 



RECORD 
WHERE, D2, 01 
RETURN, D2 



RECORD 
WHERE, D2 
RETURN, D2 



PROC 

GO T0(L1,L2,L3,L4) ,WHERE 

L1,RETURN=2 



PROC 

GO T0(E1,E2,E3) , WHERE 



CHAIN 2 
L2, .. . 



El,... 



WHERE=RETURN 
CHAIN 1 



L.5.4 Miscellaneious CHAIN Facts 

1. Both the TRACE and TRAP features are turned off when a CHAIN 
statement is executed. They may be turned on again in the 
CHAINed program via an appropriate TRACE or TRAP instruction. 
Control returns to DDT when a CHAIN statement is executed. 

2. The size of the data area in a program may be larger than, 
smaller than, or equal to the size of the data area in any 
program that it chains to. 



3. Issuing a CHAIN statement with an argument greater 
(e.g., CHAIN 8) results in the error message 



than 



ILLEGAL CHAIN 

4. Issuing a CHAIN statement which does not correspond to a 
valid DIBOL binary file in the .RUN statement results in the 
error message: 

ILLEGAL CHAIN 
AT LINE 0000 
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L.6 DIBOL PROGRAMMING OF SYS FILES 



L.6.1 Operating Procedures 

Up to seven source files are available to a DIBOL program. They are 
specified at run time by: 

RUN PROG, sourcel, . . . ,source7 

The Editor scratch area is not available to a DIBOL program. 

L.6. 2 Data Section 

The RECORD description would be as follows: 

RECORD recnam 
LINENO, A2 
CHAR, A120 

LINENO contains a two character line number in binary. Most programs 
would ignore the line number. However, it can be converted to decimal 
by the statement: 

varnam = #LINENO*64+#LINENO (2 , 2) 

Varnam must be a four digit field. 

CHAR contains the characters of one line created by the Editor. The 
DIBOL program may want to examine CHAR for trailing spaces to 
determine the last character in CHAR. 

There is no tabbing within CHAR. The tabbing seen by output from the 
Monitor command LIST or LIST/L is done by the operating system. Tabs 
are internally stored as characters with a decimal equivalent of 61. 
Any character may be checked for a tab by the statement: 

IF(#CHAR(n,n) .EQ.61) GO TO LABEL 



L.6. 3 PROCedure Section 

The first source file specified in the RUN command is opened by the 
statement: 

INIT(n,SYS) 

Each record is accessed by the statement: 

XMIT(n, recnam, EOF label) 
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when an end~of-line condition occurs, the program transfers to the EOF 
label of the XMIT statement. A-t that EOF label, a FINI n statement 
must be executed prior to an INIT(n,SYS) to open a second source file. 
To handle a variable number of source files, precede the INIT(n,SYS) 
statement by an ON ERROR label statement. The program would transfer 
to the ON ERROR label statement when an INIT(n,SYS) statement was 
executed and there were no more source files. 

The only way of processing a source file more than once is to execute 
a CHAIN n statement which resets the operating system pointers to the 
source file(s). Refer to Section 5.1 of this appendix for an 
explanation of CHAINing and source files. 



L.7 VT50 ESCAPE SEQUENCES 

A command protocol is built around the Escape code (033) to implement 
those commands needed by the VT50 but not found in 7-bit ASCII. Upon 
receiving the Escape code 033, the terminal is set to Escape mode and 
treats the next character received as a command. Commands created in 
this manner are called Escape Sequences. The VT50 recognizes the 
following Escape Sequences: 

ESC (033) Followed By: 

Octal 

Code Char Action Taken 



033 ESC Sets the terminal in Normal mode if the terminal 

is in Normal mode before the first 033 is 
received. Sets the terminal in Escape mode if 
the terminal is in Escape mode before the first 
033 is received. The first 033 changes the 
mode, the second 033 changes it back. 

101 A Moves cursor up one line. 

102 B Moves cursor down one line. 

103 C Moves cursor right one position. 

104 D Moves cursor left one position. 
110 H Moves cursor to the Home position. 

112 J Erases from cursor position to end of screen. 

113 K Erases line from cursor to right margin. 

132 Z Requests the terminal to identify itself. The 

terminal will respond with ESC / A (033 057 101) 
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APPENDIX M 
DISKETTE UTILITY 



RXU provides the capability to COPY and VERIFY, VERIFY only, or 
READCHECK any diskette. 

This program has been included to augment the COPY option of PIP for 

floppy diskettes. The added features include hardware error 

reporting, diskette data verification and a separate test for 
suspected media problems. 

To run this program, type the Monitor command 

_^R RXU 
RXU will respond as follows: 

DISKETTE UTILITY V5.04A (or current version) 

OPTION- 

Respond with a C for Copy and Verify, V for Verify only, R for 
Readcheck or X to return to the Monitor. 

Ex. 1 (Copy and Verify) 

OPTION 

C 

INPUT 



OUTPUT 

1 

This sequence will copy the entire contents of diskette on 
diskette 1 and verify the transfer. 

Ex. 2 (Verify Only) 

OPTION 

V 

IN 1 



IN 2 

1 
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This operation will compare the contents of diskette 1 to the 
contents of diskette and report any differences. 

Ex. 3 (Readcheck) 

OPTION 
R 

INPUT 


This will read the contents of the specified diskette to test for 
any hardware detectable errors. 

Error Messages: 

READ (or WRITE) ERROR RX # 

STATUS REG = (followed by contents of Status Register in Octal) 

ERROR REG = (followed by contents of Error Register in Octal) 

TRACK = (followed by contents of Track Address Register 
in Octal) 

SECTOR = (followed by contents of Sector Address Register 
in Octal) 

DATA COMPARE ERROR (followed by TRACK information as shown above) 

NO ERRORS = (followed by number of data compare errors for 
this track) 

RX # NOT READY OR NOT AVAILABLE - this message is displayed when 
a non-existent disk is being accessed or the selected drive is 
not ready (diskette not inserted) - Program returns to OPTION 
message 

CONTROLLER # INITIALIZATION ERROR - Program returns to OPTION 
MESSAGE 

RETRY OPERATION? - This message is displayed following a Read or 
Write error. A 'N' and <CR> returns the program to the OPTION 
message. Any other response will cause the program to retry the 
operation. 
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INDEX 



ACCEPT Statement, 1-6, L-1 
Advanced Programming Techniques , 
L-1 

ACCEPT and DISPLAY statements, 
L-1 

CHAIN Statement, 1-9, L-16 

DIBOL programming of SYS files, 
L-19 

direct access techniques, L-8 

numeric field verification, L-15 
Alpha literals, 1-15 
Alphanumeric data, 

in BUILD program, 6-15 

moving of, 1-14 
Alphanumeric to decimal conversion, 

1-15 
Arithmetic expressions, 1-10 
Arithmetic operators, 1-10 
Arrays, 1-43 

ASCII to COS file conversion, 12-1 
Assignment of logical units, 

SYSGEN, 3-7 
Automatic loading, COS system, B-1 



BATCH command, 2-6 
Batch, 

editing, 2-27 

execution, 2-6 
Binary file transfer, PIP option, 

5-2 
Binary scratch area modification, 

PIP, 5-10 
BLOCK, see RECORD 
Boot, 

operating procedures, 9-1 

switches, 9-1 
Braces (symbol convention) , 

INTRO- 6 
Brackets (symbol convention) , 

INTRO- 7 
Branching, 1-8 

via ON ERROR statement, 1-33 
Buffer clearing, 2-17 
BUILD, 

checkdigit formula, E-1 

control program, 6-1 

error messages, 6-16, 6-19 

field descriptor, 6-3 

input, 6-4 

input line, 6-13 

input options, 6-6 

operating procedures, 6-11 

output, 6-8 

output options, 6-9 

sample program, 6-2 



,C option (clear record) , 1-47 

CALL statement, 1-8 

Card reader, F-14 

Card reader input, BUILD program, 

6-13 
CHAIN statement, 1-9, L-16 
Channel, 1-23 
Characters , special in format 

strings, 1-16, 1-17 
Checkdigit formula, BUILD program. 

E-1^ 
Comma as field delimiter , BUILD 

program, 6-5, 6-15 
Commands , 
DAFT, 11-1 
Monitor, 2-3 
UPDATE program, 8-5 
Comments in programs , 1-4 
Compiler, 

error messages, 4-9 
operating procedures, 4-1 
storage map, 4-4 
Compiler statement (DIBOL) , 1-5 
Computed GO TO, 1-25 
Consolidating files, PIP option, 

5-9 
Continue lines, UPDATE program, 

8-6 
Control program, BUILD, 6-1 
sample program, 6-2 
storage, 6-1 
Control program, 
SORT, 7-1 
UPDATE, 8-1 
Control statements, (DIBOL), 1-5 
Control transfer through IF 

statement, 1-2 7 
Conventions (symbols) used in 

manual, INTRO- 6 
Converting and formatting data, 

1-15 
Copy device, PIP option, 5-3 
Core size, DIBOL compiler, C-1 
COS codes storage, A-1 

tables. A- 2 
CONVEX (COS-OS/8 Converter 
program) , 
error messages, 12-3 
operating procedures, 12-1 
output file, 12-3 
CREF (Cross Reference) program, 
error messages, 14-9 
example, 14-3 

operating procedures, 14-1 
CTRL/n commands , Monitor/Editor , 

2-3 
Current data specification ( . D) , 
1-43 



INDEX- 1 



,D option (data specification) , 

1-43 
DAFT (Dump and Fix) , 

commands, 11-1/ 11-3, 11-4 
error messages, 11-4, 11-5, 11-6 
operating procedure, 11-1 
output, 11-6 
Data files, G-1 
Data field indicators, BUILD 

program, 6-3 
Data file transfer, PIP option, 

5-4 
Data formatting, 1-15, 1-16 
Data input, BUILD program, 6-13 
Data manipulation statement, 1-4, 

1-10 
Data record transfer, 1-58 
Data specification statements 

(DIBOL) , 1-5 
DATE command, (Monitor) , 2-7 
Debugging, 1-51 

Debugging statements (DIBOL) , 1-6 
Decimal data, 

BUILD program, 6-14 
moving, 1-14 
Decimal literals, 1-12 
Decimal to alphanumeric conversion, 

1-15 
DECtape system device for loading 

COS, B-1 
DECtape transport unit, F-33 
DECtape users, logical devices 

for, 3-13 
DECtapes , pseudo, G-4 
Default units, SORT, 7-8 
DEFINE statement, BUILD program, 

6-3 
DELETE command (Monitor) , 2-8 
Device assignment, 3-9 
DECtape users, 3-13 
disk users, 3-13 
table printout, 3-13 
Device initialization, 1-30 
DIBOL debugging technique 

(DDT) , H-1 
DIBOL compiler binary, G-2 
DIBOL compiler, core size 

requirements , C-1 
DIBOL statement summary, I-l 
DIBOL programming of SYS files, 

L-19 
Direct access, READ statement, 

1-37, L-9 
Direct access, WRITE statement, 

1-58 
DIRECTORY command. Monitor, 2-9 
Diskette utility, M-1 
Disk, F-36 
Disk system device for loading 

COS, B-3 
Disk users, logical devices for, 

3-13 



Display statement, 1-18, L-1 
DTMARK format program, 13-10 



Editing, BATCH, 2-27 
Editing commands, 2-16 
Editing example, MONITOR, 2-24 
Ellipsis (symbol convention) , 

INTRO- 6 
End of file, 1-56 
End of file mark, 1-22 
End of subroutine, 1-48 
END statement, 1-21 

UPDATE program, 8-5 
eof label, 1-58 
ERASE command. Monitor, 2-17 
Error corrections via editing 

commands, 2-16 
Error messages, 

BUILD, 6-16 through 6-19 

compiler, 4-8 through 4-10 

CONVEX, 12-3 

COS summary, J-1 

CREF, 14-1 

DAFT, 11-4 through 11-6 

DTMARK format, 13-10 
recovery, 13-11 

logical device assignments, 3-10 

Monitor, 2-30, 2-31 

PATCH, 10-5 

PIP, 5-12 

RKEMRK, 13-5 
recovery, 13-6 

RK8MRK, 13-2 
recovery, 13-3 

Run-time, 2-31, 2-32 

SORT, 7-9, 7-10 

TDMARK, 13-7 
recovery, 13-8 

UPDATE, 8-8, 8-9 
Executing programs via RUN 

command , 2-12 
Expressions, arithmetic, 1-9 



FETCH command. Editor, 2-18 
Field descriptor section, 

BUILD, 6-3 

SORT, 7-1 
Fields, 

BUILD program data, 6-13 

clearing of, 1-13 

UPDATE program, 8-1 
File access, G-4 
File consolidation, PIP option, 

5-9 
File conversion, ASCII to COS, 

12-1 
File descriptor section, UPDATE, 
8-1 
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File design, D-1 

File maintenance program, UPDATE, 

8-1 
File replacement, PIP, 5-7 
File structure, (COS), INTRO-2 
FINI statement, 1-22 
Format programs, 13-1 

DTMARK, 13-10 

RKEMRK, 13-5 

RK8MRK, 13-2 

TDMARK, 13-7 
Format strina, special characters 

in, 1-16^ l-i7 
Formatting data, 1-15 
FORMS statement, 1-23 



GOTO statement, 1-25 



Handler address, G-5 

Hardware requirements, INTRO-1, 

3-2, F-1 
High-speed paper tape reader and 

punch, F-30 through F-32 



Line printers, F-16 

output format, 1-23 
LIST command. Editor, 2-19 
Literals , 

alpha, 1-12 

decimal, 1-12 

record, 1-13 
LN (Line Number) command. Monitor, 
2-22 

error recovery, 2-23 
Loading COS , 

automatic, B-1 

DECtape, B-1 

Disk, B-3 

PDP-12 users, B-6 

RF08 bootstrap, B-4 

RK08 bootstrap, B-4 

RK8E bootstrap, B-4 

TD8-E bootstrap, B-4 
Loading programs via RUN command, 

2-12 
Loading source file, 2-18 
Logical unit assignment, SYSGEN, 

3-7 through 3-15 
LP05 line printer, F-8 
LP08 line printer, F-16 
LS8-E line printer, F-18 



IF statement, 1-27 
INCR (increment) statement, 1-29 
INIT statement, 1-30 
Initialization, SYSGEN, 3-2 
Input line, BUILD, 6-13 
Input/output section, SORT, 7-2 
Input/output statements (DIBOL) , 

1-5 
Input section, BUILD program, 6-4 

termination , 6-6 
INPUT statement, UPDATE program, 

8-2 
Inserting initial values, 1-40 
Insert line and number in edit 

buffer, 2-17 



Monitor , 

commands, 2-5 

key commands, 2-3 

operating procedures, 2-1 
Monitor layout, G-3 
MOUNT messages. Monitor, 2-13 
Moving alphanumeric data, 1-14 
Moving decimal data, 1-14 
Moving records, 1-15 
Multiple definition of fields 

( ,x option) , 1-45 
Multi-reel input file, SORT 
program, 7-4 



Key commands. Monitor, 2-3 

KEY statement, UPDATE program, 8-3 

Keyboard data input (KBD) , BUILD 

program, 6-12 
Keyword, BUILD program, 6-5 



LA30 DECwriter, F-9 
LA36 DECwriter, F-10 
Labels of statements, 1-3 
Length of statement, 1-1 
LINCHG, 16-1 



Number commands. Editor, 2-22 
# (number sign) operator, 1-11 
Numbers of statements, 1-3 
Numeric field verification, L-15 



ON ERROR statement, 1-3 3 
Operating procedure , 

BOOT program, 9-1 

BUILD program, 6-11 

Compiler, 4-1 

CONVEX (COS-OS/ 8 Converter 
program) , 12-1 

CREF, 14-1 

DAFT program, 11-1 
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Operating procedure (cont.)# 

DTMARK format program, 13-10 

Monitor, 2-1 

PATCH, 10-1 

PIP, 5-1 

RKEMRK format program, 13-5 

RK8MRK format program, 13-2 

SORT, 7-4, 7-6 

SYSGEN, 3-1 

TDMARK format program, 13-7 

UPDATE program, 8-7 
Operators , 

arithmetic, 1-10 

unary, 1-10 
Options , 

BUILD program input, 6-6 

BUILD program output, 6-9 

PIP, 5-1 
Output, DAFT program, 11-6 
Output format number, BUILD 

program, 6-5 
Output section, BUILD program, 

6-8 
OUTPUT statement, 

BUILD, 6-8 

UPDATE, 8-4 
Overlay record, 1-45 



,P option (initialization) , 1-40 
Paper tape reader input, BUILD, 

6-13 
Parentheses in arithmetic expres- 
sions, 1-11 
PATCH , 

correcting typographical errors, 

10-2 
error messages, 10-5 
operating procedures, 10-1 
PDP-12 with LINCtape loading for 

COS, B-6 
PIP (Peripheral Interchange 
Program) , 
error messages, 5-12 
operating procedures, 5-1 
options, 5-1 
PLEASE command. Monitor, 2-12 
Priority of arithmetic operators , 

1-10, 1-11 
PROC statement, 1-35 
Program tracing, 1-51 
Pseudo-DECtapes, G-4 



READ statement, 1-37 
Record design, D-1 
Record literals, 1-13 
RECORD statement, 1-38 
Records, moving, 1-15 
Renumbering program lines, 2-23 



RESEQUENCE command. Editor, 2-23 

Reserving core, 1-38 

RETURN statement, 1-48 

RF08 bootstrap loading for COS, 

B-4 
RK08/RK01 disk cartridge, F-13 
RKEMRK format program, COS, 13-5 
RK8 bootstrap loading for COS, B-4 
RK8E/RK05 disk cartridge, F-14 
RK8MRK format program, 13-2 
Rounding of numbers, 1-11 
RUBOUT, Monitor key command, 2-3 
RUN command. Monitor, 2-15 
RX8E/RX01 diskette, F-15 
RX8E users, B-6 



,S option (assign value of 

variable) , 1-44 
SAVE command, 

compiler, 4-2 

Monitor, 2-15 
Scope cursor, 1-18 

positioning of, 1-19 
Scratch area (binary) modifica- 
tion, PIP, 5-7 
Skip-code, 1-22 

Software configuration, COS, 3-1 
SORT, 

control program, 7-1 

default units, 7-8 

error messages, 7-9 

operating procedures, 7-4, 7-6 

running as part of UPDATE 
procedure, 7-6 
SORT statement, UPDATE program, 

8-3 
Source files, G-1 
Source files transfer, PIP option, 

5-9 
Source program limitation, 1-5 
Square root subroutine, 14-3 
START statement, 1-49 
Statement, 

labels, 1-3 

length, 1-1 

numbers, 1-3 

types, DIBOL, 1-5 
STOP statement, 1-50 
Storage, 

COS system, 3-7 

CREF, 14-1 

DIBOL Compiler, c-1 
Storage map. Compiler, 4-2 
Storing, 

binary program. Compiler , 4-2 

BUILD control program, 6-10 
Switches , 

BOOT program, 9-1 

SORT/MERGE, 7-6 
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Symbol conventions used in manual, 

INTRO- 6 
SYS GEN, 

initialization, 3-2 

logical unit assignment, 3-7 

operating procedures , 3-1 

software, 3-1 
System and data tape formats , 

COS, G-2 
System device input, BUILD program, 

6-13 
System '•^ro'^ram- INTRO— 1 

COS, G-z"" 

changing via PATCH, 10-1 

transfer, PIP option, 5-10 
System restart, 

on DECtape, B-2 

on disk, B-4 



TC08 DECtape, B-1 

TD8-E bootstrap loading for COS, 

B-4 
TDMARK format program, 13-7 
Terminator codes , 1-6 
Terms used in manual, INTRO- 6 
TRACE/NO TRACE statements, 1-51 
Transfer binary file, PIP option, 

5-2 
Transfer data files, PIP option, 

5-4 
Transfer data records, 1-58 
Transfer source files, PIP 

option, 5-9 
Transfer system program, PIP 

option, 5-10 
Transferring control through IF 

statement, 1-27 
TRAP statement, 1-53 
Typographical errors, correcting 

in PATCH, 10-2 



Unary operators, 1-10 
Unconditional GOTO, 1-25 
Underscored characters, INTRO-6 
UPDATE , 

commands, 8-5 

control program, 8-1 

error messages, 8-8, 8-9 

example, 8-6 

operating procedures, 8-7 
Update procedure using SORT 

program, 7-6 
UPDATE statement. 8-2 



Variables, 1-12 

VT05 terminal, 1-18, F-5 

controls, F-7 

startup procedure, F-8 
VT50 terminal, F-4 



WRITE command. Editor, 2-24 
WRITE statement, (direct access) , 
1-56 



,X option (multiple definition of 

fields) , 1-45 
XMIT statement, 1-58, L-14 
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GLOSSARY 



alphanumeric A character set that contains letters, 

digits, and other characters such as 
punctuation marks. The COS alphanumeric 
character set includes the upper case 
letters A-Z, the digits 0-9, and most of 
the special characters on the terminal 
keyboard. Two of these characters, back 
slash (\) and back arrow (_) , (shown on 
some terminals as an underscore) are 
illegal . 

array A DIBOL technique for specifying more 

than one field of the same length and 
type. 5D3 reserves space for five 
decimal fields, each to be three digits 
long. 2A10 describes two alphanumeric 
fields, each to be ten characters long. 

ASCII American National Standard Code for 

Information Interchange. This is one 
method of coding alphanumeric 
characters. 

batch processing The technique of automatically executing 

a group of monitor commands such that 
each is completed before the next is 
started. In COS the BATCH command 
executes a group of previously stored 
commands, allowing "unattended" system 
operation. 

binary operator An operator such as +, -, etc., which 

acts upon two or more constants or 
variables (e.g., A=B-C) . 

binary program The form of user's program which is 

output by the compiler and runs with 
RSYS on the computer . 

bit A binary digit (0 or 1) . 

blank A part of a medium in which no 

characters are recorded. 

block The basic COS unit of physical data 

transfer used primarily to determine 
storage capacity. A block consists of 
up to 510 characters. 

A DECtape reel contains 737 blocks; an 
RK08 disk cartridge contains 3248; an 
RK8E disk cartridge contains 6496; an 
RF08 disk platter contains 1024 blocks. 

bootstrap A short routine loaded at system startup 

time to be able to read in system 
software. 
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branch 
buffer 
bug 
character 

character string 
clear 



collating sequence 



command 

command string 
COMP 

comments 
code 



data 



A change in the sequence of execution of 
COS program statements. 

A temporary storage area usually used 
for input or output data transfers. 



A program error, or 
malfunction. 



hardware 



data base 



A letter, digit, or other symbol used to 
control or to represent data. See 
switch character. 

A linear sequence of characters. 

Setting an alphanumeric field to space 
characters, or a decimal field to zeros. 
In the Data Definition section of a 
DIBOL program C initially clears a 
RECORD storage area. 

An ordering assigned to a group of 
records based on a key item or field 
within the records. One possible 
ascending sequence is 0-9, A-Z. Then 
the descending sequence is Z-A, 9-0. 

An operator request for Monitor 
services; usually to be executed 
immediately. 

The characters that make up a complete 
command . 

The DIBOL compiler program which 
translates from source programs written 
in DIBOL language to binary programs 
which run on the computer. 

Notes for people to read; ignored by 
the compiler. Optional, following a 
semicolon on any statement line. 

(1) the representation of information, 
as in ASCII code. (2) A set of 
instructions or statements called "a 
piece of code". (3) "To code" means to 
write a program. 

A representation of information in a 
manner suitable for communication, 
interpretation, or processing by either 
people or machines. In COS systems, 
data is represented by characters. 

The entire set of data files available 
for processing by a COS data management 
system. 
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data definition 



data entry 



debug 



The specification of record formats in 
both format programs and source 
programs. Gives the length of each 
field, states whether it is alphanumeric 
or decimal, and may give a field name 
and initial entry. Data definitions are 
stored on the systems device, and may be 
referenced by any other COS program. 

The process of collecting and inputting 
data into the computer data files. Data 
entry is either key-to-tape or 
key-to-disk. The systems utility 
program, BUILD, checks the incoming data 
for type and length, and writes the 
records on DECtape or disk. 

To detect, locate, and remove errors or 
malfunctions from a program or machine. 



DEC 



Acronym for 
Corporation. 



Digital 



Equipment 



DECtape reel 



data management 



detail file 

device independence 



Each 4-inch reel contains 260 feet of 
3/4-inch wide magnetic tape. Each reel 
is a logical file of up to 737 blocks of 
512 characters each. A large file may 
consist of up to 63 reels. 

The planning, development, and operation 
of a system like COS by an organization 
to mechanize its information flows and 
make available the data needed by the 
organization. 

Same as transaction file. 

COS system design permits data files and 
programs to be stored on either DECtape 
or disk. At run-time, the operator 
chooses the most suitable, or available, 
input and output devices. 



device names 



3-character abbreviations 
name the COS I/O devices. 



are used to 



DT0-DT7 DECtapes 0-7 
TTY Terminal printer 
KBD Terminal keyboard 
RDR Paper tape reader 
PTP Paper tape punch 
CDR Card reader 
LPT Line printer 
DK0-DK3 Disk drives 
RX0-RX5 Disk drives 
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DIBOL 



direct access 



directory 
disk 

dump 

end of tape mark 



end of file mark 
error message 



Digital's Business Oriented Language. 
The source language of the COS system. 

The process of obtaining data from, or 
placing data into, a storage device 
where the availability of the data 
requested is independent of the location 
of the data most recently obtained or 
placed in storage. Direct access is 
available to users of DECtapes and disks 
in COS systems by writing the position 
number of any record in a data file. 
For example, you can request the 5th, 
35th, and 711th records in a file. 

See Systems Directory. 

A standard mass storage device in COS 
systems giving very fast access to data 
files and programs. 

To copy the contents of all or part of 
storage, usually from core memory to 
external storage. 

Control characters which mark the 
physical end of a multi-reel 
(multi-disk) file. For both input and 
output files. Monitor will detect this 
EOT mark and type a message for the 
operator asking that the next reel in 
this file be mounted. 

Identifies the end of the logical file. 

An indication that an error has been 
detected . 



field 



A specified area in a data record used 
for one item of alphanumeric or decimal 
data, which cannot exceed the specified 
character length. 



file 



fixed-length records 



flowchart 



A collection of records, 
logical unit. 



treated as 



When each record in a data file is the 
same length. Fixed-length records are 
the only type handled by COS utility 
programs, and the only type on which 
direct access to data files is allowed. 
See also variable-length records. 

A pictorial technique for analysis and 
solution of data flow and data 
processing problems. Symbols represent 
operations, and connecting flowlines 
show the direction of data flows. 
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illegal character 



input 

input/output 
instruction 

jump 

justify 



A character that is not valid according 
to the COS design rules. DIBOL will not 
accept back slash (\) and back arrow (_) 
(backarrow is replaced on some terminals 
with underscore) in alphanumeric 
strings. 

Data flowing into the computer to be 
processed by a binary program is input 
data. When the processed data flows out 
of the computer, it is output data. 

Either input or output, or both. I/O 

A program statement that specifies an 
executable computer operation. 

A departure from the normal sequence of 
executing instructions in a computer. 

The process of positioning data in a 
field whose size is larger than the 
data. In alphanumeric fields, the data 
is left-justified and any remaining 
positions are space-filled; in decimal 
fields the digits are right-justified 
and any remaining positions to the left 
are zero-filled. 



key 



label 



One or more fields within a record used 
to match or sort a file. If a file is 
to be arranged by customer name, then 
the field that contains the customers' 
names is the key field. In a sort 
operation, the key fields of two records 
are compared, and the records are 
resequenced when necessary. 

One or more characters used to identify 
a statement in a COS source program up 
to a maximum of 6 characters. 



leader 



library 



library routine 



line printer 



The blank section of tape at the 
beginning of a DECtape or paper tape. 

A collection of related files. For 
example, the collection of inventory 
control files may form a library, and 
the libraries used by an organization 
are known as its data bank. 

A proven routine that is maintained in a 
program library. 

A high-speed output device that prints 
all the characters of a line as a unit. 
Speed of the LP08 Line Printer ranges 
from 245 to 1110 lines per minute. LS8E 
has a speed of 165 characters per 
second . 
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linkage 

load 

load-and-go 

location 
logical file 



logical units 



loop 



magnetic core 



main memory 



mass storage device 



master file 



merge 



Coding that connects two separately 
coded routines. 

To enter data or programs into main core 
storage. 

An operating technique in which there 
are no stops between the loading and 
execution phases of a program. 

Any place where data may be stored. 

A collection of logical records 
independent of their physical 
environment. Portions of the same 
logical record may be located in 
different physical blocks. 

A section of mass storage. Up to 15 
logical units may be assigned at system 
startup by the SYSGEN program. These 
areas and their assigned sizes are 
listed in the logical units table 
printed by SYSGEN. 

A sequence of instructions that is 
executed repeatedly until a terminal 
condition prevails. A commonly used 
programming technique in processing data 
records. 

The very fast, direct access, storage 
media used in the PDP-8E's main internal 
memory. Contains 2 COS characters per 
12-bit word. An 8K core stores over 
16,000 characters. 

Or main storage. The computer's primary 
internal storage. 

A device having large storage capacity, 
such as DECtapes and disks. 

A data file that is either relatively 
permanent, or that is treated as an 
authority in a particular job. 

To combine records from two or more 
similarly ordered strings into another 
string that is arranged in the same 
order. The latter phases of a sort 
operation. 
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mnemonic 



Monitor 



name 



nest 

object program 

off line 

on line 

overlay 

parameter 

parametric programming 



pass 
patch 

peripheral equipment 

position 
program 



Brief identifiers which are easy to 
remember. Examples are TTY, RDR and 
DT4. 

cos's top system program that loads and 
runs other programs and performs many 
other useful tasks. 

A name identifies the place where a 
file, a field, or a statement is stored. 
Names must start with a letter and may 
contain up to 6 characters, not 
including embedded spaces. 

To embed subroutines or loops or data in 
other subroutines or programs. 

A compiled program in binary form ready 
to be loaded and executed. 

Equipment or devices that are not under 
control by the computer . 

Equipment or services under control of 
the computer . 

The technique of specifying several 
different record formats for the same 
data. Special rules apply. 

A variable that is given a constant 
value for a specific purpose or process. 

COS control programs are parametric 
programs. The applications programmer 
lists the description of his data files 
as parameters in the Data Definition, 
and the processing needed is listed in 
another section as another parameter 
list. Each parameter list is written by 
answering a series of questions. The 
DIBOL data language is used for writing 
procedural programs. 

One cycle of processing a body of data. 

To modify a routine or program in a 
rough or expedient way. 

Data processing equipment which is 
distinct from the computer. DECtapes, 
disks and card readers are examples. 

In a string, any location that may be 
occupied by a character. 

See source program, binary program, 
object program, format program. 
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program library 



programmers 



pseudo-random numbers 



push-down list 

random access 
range 



real time 



record 



segment 



sequential operation 



An organized collection of computer 
programs, off line storage media, and 
related documentation. 



People who design, write, and 
computer programs. 



test 



A sequence of numbers, computed by an 
arithmetic process, that is 
satisfactorily random for a given 
purpose. Such a sequence may 
approximate a statistical distribution 
such as uniform, normal, or gaussian. 

A list of items where the last item 
entered is the first item in the list, 
and the relative position of the other 
items is pushed back one. 

Similar to direct access. 

The difference between the highest and 
lowest values that a quantity or 
function may assume. For example, the 
range of decimal numbers that COS 
systems can process is: 
-999,999,999,999,999 to 
+999,999,999,999,999. 

Use of a computer to guide, control, or 
acquire data from a related physical 
process, during the actual time that the 
physical process transpires. 

A collection of related data fields, and 
the basic logical unit in COS data 
files. A RECORD statement reserves core 
storage areas for DIBOL data language 
programs. See also fixed-length and 
variable-length records. Maximum record 
size is 510 characters. 

To divide a program or file into parts 
such that the program can be executed 
without the entire program being in 
internal storage at any one time. 

Performance of operations, such as 
record processing, one after the other. 
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serial access 



sign 



significant digit 



simulate 



source program 
space fill 

special character 

spool 

statement 

str ing 

switch character 

syntax 

system device 



The process of getting data from or 
putting data into storage where the 
access time is dependent upon the 
location of the data most recently 
obtained or placed in storage. Most 
magnetic tapes are serially accessed, 
but DECtapes have fixed addresses and 
COS programs have fast, direct access to 
their DECtape records. 

Indicates whether a number is negative 
or positive. Positive numbers do not 
require a sign, but negative numbers are 
prefixed with the minus sign (-) . 

A digit that is needed for a specified 
purpose, especially a digit that must be 
kept to preserve a certain accuracy or 
precision. Leading zeros are not 
significant. 

A computer program that represents the 
behavior of another system. An example 
would be a program which simulates the 
behavior of a market when a new product 
is introduced. 

A program written in COS data language, 
DIBOL. 

To fill the remaining character 
positions in an alphanumeric field with 
space characters. 

A graphic character that is neither a 
letter, nor a digit, nor a space 
character . 

To provide for continuous operation of a 
peripheral device. 

An instruction in a source program. 

A linear sequence of characters. 

A single letter specified in a command 
following a slash (/) . 

The rules governing the structure of a 
language . 

A mass storage device reserved for 
Monitor, RSYS and other system and user 
programs. This is always logical unit 
0. 
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systems directory 

tape drive 
terminal 
transaction file 



A list of programs on the systems device 
with lengths, dates of creation and 
other useful information. 



unary operator 



utility program 



var iable 



variable-length record 



ver ify 
word 
zero fill 



A device that moves tape past a 
Synonymous with tape transport. 



head . 



A point in the system at which data can 
either enter or leave. 

A file containing relatively transient 
data to be processed in combination with 
a master file. For example, in a 
payroll application, a transaction file 
indicating hours worked might be 
processed with a master file containing 
employee name and rate of pay. 
Synonymous with detail file. 

An operator such as +, -, etc., which 
acts upon only one variable or constant 
(e.g., A=-C) . 

A group of system programs which perform 
common services and require format 
programs. Examples are BUILD, SORT and 
UPDATE . 

A quantity that can assume any of a 
given set of values. 

A file in which the data records are not 
uniform in length. Specified by V in an 
INIT statement. Variable length records 
may be created by DIBOL source programs 
only, but cannot be processed by utility 
programs, and direct access to such 
records by system programs is 
impossible. 

To determine whether a transcription of 
data has been accomplished accurately. 

A string of 12 binary bits, representing 
two COS characters. 

To fill the remaining character 
positions in a decimal field with zeros. 
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HOW TO OBTAIN SOFTWARE INFORMATION 

SOFTWARE NEWSLETTERS, MAILING LIST 

The Software Communications Group, located at corporate headquarters in 
Maynard, publishes software newsletters for the various DIGITAL products, 
Newsletters are published monthly, and keep the user informed about cus- 
tomer software problems and solutions, new software products, documenta- 
tion corrections, as well as programming notes and techniques. 

There are two similar levels of service: 

The Software Dispatch 
The Digital Software News 

The Software Dispatch is part of the Software Maintenance Service. This 
service applies to the following software products: 

PDP-9/15 

RSX-llD 

DOS/BATCH 

RSTS-E 

DECsystem-10 

A Digital Software News for the PDP-11 and a Digital Software News for 
the PDP-8/12 are available to any customer who has purchased PDP-11 or 
PDP-8/12 software. 

A collection of existing problems and solutions for a given software 
system is published periodically. A customer receives this publication 
with his initial software kit with the delivery of his system. This 
collection would be either a Software Dispatch Review or Software Per- 
formance Summary depending on the system ordered. 

A mailing list of users who receive software newsletters is also main- 
tained by Software Communications. Users must sign-up for the news- 
letter they desire. This can be done by either completing the form sup- 
plied with the Review or Summary or by writing to: 

Software Communications 

P.O. Box F 

Maynard, Massachusetts 01754 

SOFTWARE PROBLEMS 

Questions or problems relating to DIGITAL'S software should be reported 
as follows: 

North and South American Submitters: 



Upon completion of Software Performance Report (SPR) form remove last 
copy and send remainder to: 

Software Communications 

P.O. Box F 

Maynard, Massachusetts 01754 

The acknowledgement copy will be returned along with a blank SPR form 
upon receipt. The acknowledgement will contain a DIGITAL assigned SPR 
number. The SPR number or the preprinted number should be referenced in 
any future correspondence. Additional SPR forms may be obtained from 
the above address. 

All International Submitters : 

Upon completion of the SPR form, reserve the last copy and send the re- 
mainder to the SPR Center in the nearest DIGITAL office. SPR forms are 
also available from our SPR Centers. 

PROGRAMS AND MANUALS 

Software and manuals should be ordered by title and order number. In the 
United States, send orders to the nearest distribution center. 



Digital Equipment Corporation 
Software Distribution Center 
146 Main Street 
Maynard, Massachusetts 01754 



Digital Equipment Corporation 
Software Distribution Center 
1400 Terra Bella 
Mountain View, California 94043 



Outside of the United States, orders should be directed to the nearest 
Digital Field Sales Office or representative. 

USERS SOCIETY 

DECUS, Digital Equipment Computers Users Society, maintains a user ex- 
change center for user-written programs and technical application infor- 
mation. The Library contains approximately 1,900 programs for all 
DIGITAL computer lines. Executive routines, editors, debuggers, special 
functions, games, maintenance and various other classes of programs are 
available. 

DECUS Program Library Catalogs are routinely updated and contain lists 
and abstracts of all programs according to computer line: 

PDP-8, FOCAL-8, BASIC-8, PDP-12 
PDP-7/9, 9, 15 
PDP-11, RSTS-11 
PDP-6/10, 10 

Forms and information on acquiring and submitting programs to the DECUS 
Library may be obtained from the DECUS office. 

In addition to the catalogs, DECUS also publishes the following: 

DECUSCOPE -The Society's technical newsletter, published bi-monthl; 

aimed at facilitating the interchange of technical in- 
formation among users of DIGITAL computers and at dis- 
seminating news items concerning the Society. Circula- 
tion reached 19,000 in May, 1974. 



-Contains technical papers presented at DECUS Symposia 
held twice a year in the United States, once a year 
in Europe, Australia, and Canada. 

-A report of the DECsystem-10 sessions held at the two 
United States DECUS Symposia. 

-A monthly mailed communique among DECsystem-10 users. 

-Mailing of Local User Group (LUG) and Special Interest 
Group (SIG) communique, aimed at providing closer 
communication among users of a specific product or 
application. 

Further information on the DECUS Library, publications, and other DECUS 
activities is available from the DECUS offices listed below: 



PROCEEDINGS OF 
THE DIGITAL 
EQUIPMENT USERS 
SOCIETY 

MINUTES OF THE 

DECsystem-10 

SESSIONS 

COPY-N-Mail 

LUG/SIG 



DECUS 

Digital Equipment Corporation 

146 Main Street 

Maynard, Massachusetts 01754 



DECUS EUROPE 

Digital Equipment Corp. International 

(Europe) 

P.O. Box 340 

1211 Geneva 26 

Switzerland 



COS-300/310 

System Reference 

Manual 

DEC-0 8-OCOSA-P-D 



READER'S COMMENTS 



NOTE: This form is for document comments only. Problems 
with software should be reported on a Software 
Problem Report (SPR) form (see the HOW TO OBTAIN 
SOFTWARE INFORMATION page) . 
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Did you find this manual understandable, usable, and well-organized? 
Please make suggestions for improvement. 



O) 

c 
o 



D Is there sufficient documentation on associated system programs 

^ required for use of the software described in this manual? If not, 

g what material is missing and where should it be placed? 

0) 



Please indicate the type of user /reader that you most nearly represent. 

|~) Assembly language programmer 

I I Higher-level language programmer 

I I Occasional programmer (experienced) 

I I User with little programming experience 

I I Student programmer 

I I Non-programmer interested in computer concepts and capabilities 

Name Date 

Organization 

Street 

City State Zip Code 

or 
Country 

If you do not require a written reply, please check here. Q 



Fold Here- 



Do Not Tear - Fold Here and Staple 



FIRST CLASS 

PERMIT NO. 33 

MAYNARD, MASS. 



BUSINESS REPLY MAIL 

NO POSTAGE STAMP NECESSARY IF MAILED IN THE UNITED STATES 



Postage will be paid by: 



Software Communications 

P. 0. Box F 

Maynard, Massachusetts 01754 



